Textbox при нажатии на Key Tab теряет фокус - VB

Формулировка задачи:

У меня проблема:уже давно не могу при печати в окне Textbox использовать клавишу Key Tab. Спасибо

Решение задачи: «Textbox при нажатии на Key Tab теряет фокус»

textual
                            Листинг программы 
                        

                            Private Declare Function GetAsyncKeyState Lib 'user32' (ByVal vKey As Long) As Integer
 
' вот только маленькое Edit 'по месту'::::)))
Private Sub Text1_Validate(Cancel As Boolean)
'Но у меня VB6 делает имя Sub только так, и все же работает'
   If GetAsyncKeyState(vbKeyTab) Then
      Cancel = True
      Text1.SelText = vbTab 'индекс убрал, т.к. окно у меня Text1.Text
      'это не существенно, но у кого с индексом, то = Text1(Index) 
      'оставить, важно идея правильна и работоспособна!!!!!!!!!!
   End If
End Sub
                        