Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal _
      keyData As Keys) As Boolean
        If TypeOf ActiveControl Is QuickTabControl Then
            If CBool(keyData And Keys.Control Or Keys.Tab) Then
                Return True
            End If
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

Private Sub KeyCombinations(ByVal sender As Object, ByVal e As KeyEventArgs) _
  Handles Me.KeyDown
        If e.KeyCode = Keys.Tab And e.Control And Not e.Shift Then
            TabBar.SelectTab(IIf(TabBar.SelectedIndex = (TabBar.TabCount - 1), _
              0, TabBar.SelectedIndex + 1))
        End If
    End Sub