Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TextBox1.GotFocus
        With TextBox1
            .BackColor = Color.Azure
            .SelectionStart = 0
            .SelectionLength = Len(.Text)
        End With
    End Sub
 
    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TextBox1.LostFocus
        TextBox1.BackColor = Color.White
    End Sub

    Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As _
      Boolean
        MyBase.ProcessDialogKey(keyData)    'Focussteuerung
    End Function
 
    Private Sub kd_stamm_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Dim ctrl As Control
        Dim g_ctrl As Control
 
        If e.KeyChar = vbTab Then
            For Each ctrl In Me.Controls
                'Container Elemente:
                If TypeOf (ctrl) Is GroupBox Then
                    For Each g_ctrl In ctrl.Controls
                        If TypeOf (g_ctrl) Is TextBox Or TypeOf (g_ctrl) Is _
                          ComboBox Then
                            If g_ctrl.Focused Then
                                g_ctrl.BackColor = Color.Azure
                            Else
                                g_ctrl.BackColor = Color.White
                            End If
                        End If
 
                    Next
                End If
 
                If TypeOf (ctrl) Is TextBox Or TypeOf (ctrl) Is ComboBox Then
                    If ctrl.Focused Then
                        ctrl.BackColor = Color.Azure
                    Else
                        ctrl.BackColor = Color.White
                    End If
                End If
 
            Next
        End If
    End Sub
 
    Private Sub kd_stamm_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

mfG.
Stephan