Private Declare Function GetKeyState Lib "User32" Alias "GetKeyState" (ByVal nVirtKey As Integer)
Private Const VK_TAB = 9 Private 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 |