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