Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AlleButtonSilber()
        Button1.BackColor = Color.Yellow
        Button1.Select()
    End Sub
 
    Private Sub AlleButtonSilber()
        Button1.BackColor = Color.Silver
        Button2.BackColor = Color.Silver
        Button3.BackColor = Color.Silver
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Label1.Text = "Click 1"
        AlleButtonSilber()
        Button2.BackColor = Color.Yellow
        Button2.Select()
    End Sub
 
    Private Sub Button1_KeyDown(sender As Object, e As KeyEventArgs) Handles _
      Button1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Label2.Text = "Enter wurde gedrückt KeyDown 1"
            'Button2.Select()
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Label1.Text = "Click 2"
        AlleButtonSilber()
        Button3.BackColor = Color.Yellow
        Button3.Select()
    End Sub
 
    Private Sub Button2_KeyDown(sender As Object, e As KeyEventArgs) Handles _
      Button2.KeyDown
        If e.KeyCode = Keys.Enter Then
            Label2.Text = "Enter wurde gedrückt KeyDown 2"
            'Button3.Select()
        End If
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        Label1.Text = "Click 3"
        AlleButtonSilber()
        Button1.BackColor = Color.Yellow
        Button1.Select()
    End Sub
 
    Private Sub Button3_KeyDown(sender As Object, e As KeyEventArgs) Handles _
      Button3.KeyDown
        If e.KeyCode = Keys.Enter Then
            Label2.Text = "Enter wurde gedrückt KeyDown 3"
            'Button1.Select()
        End If
    End Sub
End Class