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