Visual Basic - Urgente!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Quisiera saber como controlar que te sales de la aplicación con la x de cerrar el formulario y poner un msgbox de si te quieres salir o no.
Muchas gracias.

Pon esta siguiente función en un módulo

Function Cerrar(Cancel)
'Rutina para preguntar si se desea salir del programa
Dim respuesta
respuesta = MsgBox("Desea Salir del Programa", vbYesNo + vbDefaultButton2 + vbQuestion, " Salir")

If respuesta = vbYes Then
End
Else
Cancel = True
End If

End Function

Y despúes en el evento unload de la forma llamas al procedimiento cerrar con la siguiente linea:

Call Cerrar(Cancel)

Prueba este código. Es sencillo y muy elegante.
Vas al evento QueryUnload del formulario que inicia la aplicación (es decir, al igual que tienes un evento Load para cargar el formulario que depende de Form, tienes también un QueryUnload), y escribe el siguiente código. Suerte:

If MsgBox("¿Quiere finalizar programa?", vbYesNo + vbDefaultButton2 + vbInformation, "Salir") = vbNo Then
Cancel = True
End If