Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, _
      TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown, TextBox5.KeyDown
        If e.KeyCode = Keys.Return Then ' wenn Eingabetaste (Returntaste) 
            ' gedrückt wird
            Me.SelectNextControl(Me.ActiveControl, True, False, _
              True, True) ' zur nächsten Textbox
            e.Handled = True 'ohne beep-Ton
        End If
    End Sub