Cerrar forma.... Ayudaaaaa!!!!!

Joha
29 de Noviembre del 2005
Como manejar el cierre de un form, cuando se le Da a la X de la ventana.
Estoy utilizando esto pero......

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If vbFormControlMenu = 0 Then
FrmConsultar.Hide
Unload FrmConsultar
FrmPrincipals.Show
End If
End Sub

Cuando intento cerrarlo nuevamente con la X ya no funciona.
Como puedo controlar esta Accion de cerrar la ventana con la X de la misma

Ayudaaaaaaaaaaaaaaa!!!!!

Alfred
29 de Noviembre del 2005
Yo hago lo siguiente para que aparezca un mensaje y valide si quiero cerrar el form o me he arrepentido de ello.Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Cerrar As Integer 'Variable para manejar la Respuesta a la pregunta
Cerrar = MsgBox("¿Realmente quieres salir del Programa?", vbYesNo, "DataPelu 5.1")
If Cerrar = vbNo Then 'Si la contestacion es no... no se hace nada
Else
End 'Si la contestación es diferente de vbNo, osea "Si", el programa se cierra.
End If
End Sub


Un Saludo