Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal _
     keyData As Keys) As Boolean
        If ActiveControl IsNot MyTabControl1 Then
            Const comb1 As Integer = Keys.Tab Or Keys.Control
            If (keyData And comb1) = comb1 Then
                Dim c As Control = ActiveControl
                If (keyData And Keys.Shift) = Keys.Shift Then
                    If MyTabControl1.SelectedIndex > 0 Then
                        MyTabControl1.SelectedIndex -= 1
                    End If
                Else
                    If MyTabControl1.SelectedIndex < _
                      MyTabControl1.TabPages.Count - 1 Then
                        MyTabControl1.SelectedIndex += 1
                    End If
                End If
                ActiveControl = c
                Return True
            End If
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist