Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select e.KeyCode
            Case Keys.Up
                Button1.PerformClick()
                e.Handled = True
            Case Keys.Down
                Button2.PerformClick()
                e.Handled = True
            Case Keys.Left
                Button3.PerformClick()
                e.Handled = True
            Case Keys.Right
                Button4.PerformClick()
                e.Handled = True
        End Select
    End Sub
 
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, _
      Button4.Click
        Debug.WriteLine(CType(sender, Button).Text)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist