' Überschreiben der KeyDown (Navigation funktioniert sonst nicht)
    Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
        Dim c As Control
 
        Select Case e.KeyCode ' Bei Tab ins nächste (oder vorherige) Feld
            Case Keys.Tab
                If e.Shift Then
                    c = Me.Parent.GetNextControl(Me, False)
                Else
                    c = Me.Parent.GetNextControl(Me, True)
                End If
 
            Case Keys.Return  ' Bei Return nur, wenn nicht Multiline
                If Not Me.Multiline Then
                    c = Me.Parent.GetNextControl(Me, True)
                End If
        End Select
 
        ' Navigieren, wenn ein Control gewählt wurde
        If Not c Is Nothing Then
            c.Focus()
        End If
 
        ' Das KeyDown Event der geerbten Klasse aufrufen
        MyBase.OnKeyDown(e)
    End Sub