Olá Korn,
Eu nunca tive este tipo de problema, mas tente usar a API do Windows para ver se resolve:
Coloque isto em um módulo:
'Constantes de manipulação de eventos de teclado
Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Sub Aperta_Tecla(CodTecla As Byte)
On Error Resume Next
Call keybd_event(CodTecla, 0, KEYEVENTF_EXTENDEDKEY, 0)
If Err Then Err.Clear
End Sub
Public Sub Solta_Tecla(CodTecla As Byte)
On Error Resume Next
Call keybd_event(CodTecla, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
If Err Then Err.Clear
End Sub
Public Sub Envia_Tecla(CodTecla As Byte)
On Error Resume Next
Call Aperta_Tecla(CodTecla)
Call Solta_Tecla(CodTecla)
If Err Then Err.Clear
End Sub
Depois, no evento KeyPress da Txt, fça o seguinte:
If Keyascii = 13 Then
Envia_Tecla VbKeyTab
Keyascii=0
End IF
