Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData _
  As Keys) As Boolean
        If TypeOf ActiveControl Is GeckoWebBrowser Then
            ActiveControl = TabBar
        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
            If ActiveControl IsNot TabBar Then
                ActiveControl = TabBar
                SendKeys.Send("^{TAB}")
            End If
        End If
    End Sub