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
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