Esta está buena, amigos les tengo una API para eso....
En un módulo o lugar que pueda ser llamada la api se declara así:
Public Const VK_TAB = &H9
Public Const VK_LSHIFT = &HA0
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)
Para ser llamada:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
'Simular que pulsamos la tecla
keybd_event VK_TAB, 0, 0, 0
'Simular que soltamos la tecla
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
End If
End Sub
Eso es porque supe que el SendKeys es muy forzado como interrupción, sin embargo, encontré esta forma más natural para la PC.
Suerte