Que una aplicacion no termine al presionar la X

houlee
17 de Enero del 2004

Hola.

qusiera hacer que cuando se presione la X del formulario, la aplicacion pegunte con un msgbox si quiero salir o no, si le contesto que si que termine, pero si contesto que no entonces que continue normalmente.

Haber si alguien pudiera ayudarme

Baltasar
17 de Enero del 2004
en el evento unload:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("salir", vbYesNo) = vbNo Then Cancel = 1
End Sub

Saludos