en el Unload del From:
salu2
G0nz4
Código [Seleccionar]
Private Sub Form_Unload(Cancel As Integer)
Dim Respuesta As String
Respuesta = MsgBox("CERRAR?", vbQuestion + vbYesNoCancel, "NYlOn xD")
Select Case Respuesta
Case vbYes
'guardar y cancelar descarga
Cancel = 1
Case vbNo
End 'terminar programa
Case vbCancel
Cancel = 1 'cancelar descarga
End Select
End Sub
salu2
G0nz4