-
Si te referis a cuando el usuario hace click en la X de cerrar ventana, tenes que ponerlo en el evento QueryUnload.
Y para que no cierre pone Cancel = true
Saludos
en el Unload del From:
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