Private Sub Eingabe_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        'Debug.Print([Enum].GetName(GetType(Keys), e.KeyCode))

        If e.KeyCode = Keys.D1 Or e.KeyCode = Keys.NumPad1 Then
            oneButton.PerformClick()
        ElseIf e.KeyCode = Keys.D2 Or e.KeyCode = Keys.NumPad2 Then
            twoButton.PerformClick()
        ElseIf e.KeyCode = Keys.D3 Or e.KeyCode = Keys.NumPad3 Then
            threeButton.PerformClick()
        ElseIf e.KeyCode = Keys.D4 Or e.KeyCode = Keys.NumPad4 Then
            fourButton.PerformClick()
        ElseIf e.KeyCode = Keys.D5 Or e.KeyCode = Keys.NumPad5 Then
            fiveButton.PerformClick()
        ElseIf e.KeyCode = Keys.D6 Or e.KeyCode = Keys.NumPad6 Then
            sixButton.PerformClick()
        '...
        End If
End Sub