Private Sub uc_TextBox_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs)
 
 Select Case e.KeyCode
 
Case System.Windows.Forms.Keys.Return  ' Bei Return nur, wenn nicht Multiline
                    If Not e.Control Then
                        If Not Me.Multiline Then
                            If Me.Parent.SelectNextControl(Me, True, False, _
                              False, False) = False Then
                                System.Windows.Forms.SendKeys.Send("{TAB}")
                            End If
                        Else
                            'Wenn alles markiert ist
                            If Me.SelectionLength = Me.Text.Length Then
                                e.Handled = True
                                If Me.Parent.SelectNextControl(Me, True, False, _
                                  False, False) = False Then
                                    System.Windows.Forms.SendKeys.Send("{TAB}")
                                End If
                            End If
                        End If
                    End If
     End Select
 End Sub