Visual Basic - cancelar mensaje en box

Life is soft - evento anual de software empresarial
   
Vista:

cancelar mensaje en box

Publicado por Angel (21 intervenciones) el 27/11/2008 14:15:18
Tengo un formulario que tiene en el evento KeyDown y en el evento Unload y un boton con los siguientes codigos respectivamente:

Private Sub Form_KeyDown(keycode As Integer, Shift As Integer)
If keycode = 27 Then Call command1_Click
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call command1_Click
If msgyn("Desea salir de la aplicación?") = False Then
Cancel = 1
Else
End
End If
End Sub

Private Sub command1_Click()
Unload Me
End Sub

El caso es que cuando presiono Esc y se abre el cuadro del mensaje no encuantro la forma para que si presiono Esc nuevamente, este se cierre.

Gracias por adelantado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder