Private Sub Button_previewkeydown(sender As Object, e As _
    PreviewKeyDownEventArgs) Handles Button1.PreviewKeyDown, _
    Button2.PreviewKeyDown, Button3.PreviewKeyDown
 
        Select Case e.KeyCode
            Case Keys.Return
                e.IsInputKey = True
        End Select
 
    End Sub
 
    Private Sub Button_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click, Button2.Click, Button3.Click
        Select Case ixi
            Case 1
                ixi = 2
                Label1.Text = "Click 1"
                AlleButtonSilber()
                Button2.BackColor = Color.Yellow
                Button2.Select()
            Case 2
                ixi = 3
                Label1.Text = "Click 2"
                AlleButtonSilber()
                Button3.BackColor = Color.Yellow
                Button3.Select()
            Case 3
                ixi = 1
                Label1.Text = "Click 3"
                AlleButtonSilber()
                Button1.BackColor = Color.Yellow
                Button1.Select()
        End Select
    End Sub
 
    Private Sub Button_KeyDown(sender As Object, e As KeyEventArgs) Handles _
      Button1.KeyDown, Button2.KeyDown, Button3.KeyDown
        If e.KeyCode = Keys.Enter Then
            Select Case ixi
                Case 1
                    ixi = 2
                    Label2.Text = "Enter wurde gedrückt KeyDown 1"
                    AlleButtonSilber()
                    Button2.BackColor = Color.Yellow
                    Button2.Select()
                Case 2
                    ixi = 3
                    Label2.Text = "Enter wurde gedrückt KeyDown 2"
                    AlleButtonSilber()
                    Button3.BackColor = Color.Yellow
                    Button3.Select()
                Case 3
                    ixi = 1
                    Label2.Text = "Enter wurde gedrückt KeyDown 3"
                    AlleButtonSilber()
                    Button1.BackColor = Color.Yellow
                    Button1.Select()
            End Select
        End If
    End Sub