Private Sub Textbox_KEYDOWN(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, _
      TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown ' und die restlichen 
    ' 21 textboxen auch noch
        Select Case e.KeyCode ' Nach oben oder unten?
            Case Is = Keys.Down
                TextboxHochRunter(sender, false)
            Case Is = Keys.Up
                TextboxHochRunter(sender, true)
        End Select
    End Sub
 
    Private Sub TextboxHochRunter(ByVal sender As Object, ByVal richtung As _
      Boolean)
      Dim Nummer As Short = Short.Parse(DirectCast(sender, TextBox).Name.Remove( _
      0, 7)) ' Entfernt aus dem Namen der jeweiligen Textbox die ersten 7 
      ' Zeichen -> man erhält die Zahl der textbox (Bsp.: 3)
        If richtung = True Then ' nach oben
            Nummer += 1
            Me.Controls("Textbox" & Nummer.ToString).Focus() ' setzt den Focus 
            ' auf die darüberliegende Textbox
        ElseIf richtung = False Then 
            Nummer -= 1
            Me.Controls("Textbox" & Nummer.ToString).Focus()
        End If
    End Sub