Mouse and Keyboard, Mouse - Determine if focus set by Tab key or Mouse

'Description: Determine if a control got focus by Tab key
' or mouse click

'Declare Function GetKeyState% Lib "User" (ByVal nVirtKey%)
'Const VK_TAB = 9

'Sub Text1_GotFocus ()
If GetKeyState(VK_TAB) < 0 Then
     Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Else
Text1.SelLength = 0
End If
'End Sub