TabControl

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