Not hating on your creativity Basmeh...:-)! A little more complexed way of doing it...
Public Class Form1
Dim EscPressed As Integer = 0
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
Select Case EscPressed
Case 1 : Event1()
Case 2 : Event2()
Case 3 : Event3()
End Select
End If
End Sub
Private Sub Event1()
MessageBox.Show("Event 1 fired")
EscPressed += 1
End Sub
Private Sub Event2()
MessageBox.Show("Event 2 fired")
EscPressed += 1
End Sub
Private Sub Event3()
MessageBox.Show("Event 3 fired")
EscPressed = 0 End Sub
End Sub
End Class