سلام به همه

ایده جالبی بود که من دستورش رو نوشتم:

برای تماشای ویدئو آموزشی لینک رو کلیک کنید .... 

https://aparat.com/v/PIQYt

    Dim ShortcutKey(1) As Windows.Forms.Keys
    Event CustomShortcutKeyPressed(firstKey As Keys, secondKey As Keys)
    
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If (Not ShortcutKey(0) = Nothing) Then
            If ShortcutKey(1) = Nothing Then
                ShortcutKey(1) = e.KeyCode
            End If
        End If
        If ShortcutKey(0) = Nothing Then
            ShortcutKey(0) = e.KeyCode
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        ShortcutKey(0) = Nothing
        ShortcutKey(1) = Nothing
    End Sub

    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        If (Not ShortcutKey(0) = Nothing) AndAlso (Not ShortcutKey(1) = Nothing) Then
            RaiseEvent CustomShortcutKeyPressed(ShortcutKey(0), ShortcutKey(1))
            ShortcutKey(0) = Nothing
            ShortcutKey(1) = Nothing
        End If
    End Sub

    Private Sub Form1_CustomShortcutKeyPressed(firstKey As Keys, secondKey As Keys) Handles Me.CustomShortcutKeyPressed
        Debug.Print(" >> {0}{1}", Chr(firstKey), Chr(secondKey))
        Select Case (Chr(firstKey) + Chr(secondKey)).ToUpper
            Case "9M"
                Dim FRM As New Form
                FRM.ShowDialog(Me)
        End Select
    End Sub