Evitar cierre de aplicación

[keroveros]

Muy buenas:

¿Como puedo controlar cuando clickean sobre la X de la ventana?

es decir, cuando pincha para cerrar se dirige al evento form_terminate no? (pregunto esto basico porque empiezo a dudar ya de que sea asi,jejeje)

veran, tengo puesto en el form terminate el siguiente codigo:

Private Sub Form_Terminate()

M = MsgBox("¿Seguro?", vbOKCancel, "Salir")
If M = 2 Then

Exit Sub

Else
If Not (xlBook Is Nothing) Then
xlBook.Application.Quit
End If
End If

End Sub

----------

tambien he probado con esta variante:

Private Sub Form_Terminate()

If MsgBox("¿Seguro?", vbOKCancel, "Salir") = vbCancel Then
Exit Sub

Else
If Not (xlBook Is Nothing) Then
xlBook.Application.Quit
End If
End If

End Sub
------------------

tanto si le doy a cancel como a aceptar cierra la aplicacion, ¿como se aborta el cierre de la aplicacion?he probado con abort, exit, exit sub

Gracias de antemano y Salu2!

[tazzito]

en el unload del formulario pon el siguiente codigo
ojo este codigo es para cerrar la aplicacion pero ahi tu lo manejas xD

Private Sub MDIForm_Unload(Cancel As Integer)
Dim Resp As VbMsgBoxResult
resp=msgbox("Desea Cerrar la Aplicación?", vbyesno + vbQuestion,"Cerrar Programa")

if resp=vbno then
Cancel = 1
else
End
Endif
End Sub

[keroveros]

Gracias!, me ha servidor aunque mi form no es MDI.

Llevo 4 dias programando en VB, me podrias decir la diferencia o mejora de MDI frente a un Form normal??

Gracias y Salu2!

[tazzito]

mmm jaja haber la unica diferencia al menos para mi es que el mdi funciona como contenedor de form normales si sobre estos le das la propiedad MDIChild a true mmm prueba como se ven los formularios hijos con esta propiedad y windowstates en Maximized ...