MISSING: TabControl MouseDown, KeyDown/KUp Events

I've found a work-around to accomplish the above goal (in case anyone else has a similar requirement).

In a module place this code:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Const KEY_MASK As Integer = &HFF80 Public Function IsKeyDown(KeyCode As Long) As Boolean     IsKeyDown = GetKeyState(KeyCode) And KEY_MASK End Function

Then, on your form with the TabControl:

Private Sub TabControl1_BeforeItemClick(ByVal Item As XtremeSuiteControls.ITabControlItem, Cancel As Variant)    If Not (IsKeyDown(vbKeyLeft) Or IsKeyDown(vbKeyRight)) Then       SOMEOTHERCONTROL.SetFocus    End If End Sub

Essentially, we are checking to see if either of the cursor keys are being pressed when the TabControl is about to change the selected tab. If so, then the focus will remain on the TabControl (so the user can continue navigating the tabs with the keyboard). If not, we'll assume that the user clicked a tab with the mouse, and then move the focus to some other control where they presumably want to start typing directly.