alguien q me diga porq estoy funciona una sola vez

[ezequiel_kinyo]

Private Sub Form1_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles MyBase.KeyDown
' Si se pulsa en Supr, borrar el elemento seleccionado
If e.KeyCode = Keys.Escape Then
MsgBox("HOla")
End If
End Sub

[RootK]

No entiendo..

Que pretendes hacer..? o cual es exactamente tu duda.. ?

Salu2

[ezequiel_kinyo]

lo q quiero es q cada vez q apriete la tecla "Esc" salga un cartel q diga si quiere salir o no.
y funciona... pero solo una vez.

[ezequiel_kinyo]

Private Sub Form1_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
me.close()
End If
End Sub

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = (MsgBox("¿Confirma que desea abandonar la aplicación?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "Funeraria Roldan") = MsgBoxResult.No)
End Sub