ENTER NAO FUNCIONA

[ô]Codigo do Modulo

Private Const KEYEVENTF_KEYUP = &H2
Private Const INPUT_KEYBOARD = 1
Private Type KEYBDINPUT
   wVk As Integer
   wScan As Integer
   dwFlags As Long
   time As Long
   dwExtraInfo As Long
End Type

Private Type GENERALINPUT
   dwType As Long
   xi(0 To 23) As Byte
End Type

Public Declare Function SendInput Lib [Ô]user32.dll[Ô] (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long
Public Declare Sub CopyMemory Lib [Ô]kernel32[Ô] Alias [Ô]RtlMoveMemory[Ô] (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Function SendKeysA(ByVal vKey As Integer, Optional booDown As Boolean = False)
   Dim GInput(0) As GENERALINPUT
   Dim KInput As KEYBDINPUT
   KInput.wVk = vKey
   If Not booDown Then
       KInput.dwFlags = KEYEVENTF_KEYUP
   End If

   GInput(0).dwType = INPUT_KEYBOARD

   CopyMemory GInput(0).xi(0), KInput, Len(KInput)

   Call SendInput(1, GInput(0), Len(GInput(0)))
End Function

[ô]Codigo do form
[ô]o keypreview do form deve esta true

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
       Case 13:
           [ô]*** Campo  se pressionado (ENTER)      
           SendKeysA vbKeyTab, True        
       Case 27:
            [ô]Fecha Form  se pressionado (ESC)          
            Unload Me
       Case 38:
           [ô]Volta Campo similar   (SHIFT + TAB)
           SendKeysA vbKeyShift, True
           SendKeysA vbKeyTab, True
           SendKeysA vbKeyShift, False
       Case 40:
           [ô]*** Campo se pressionado (SETA ACIMA)
            SendKeysA vbKeyTab, True
   End Select
End Sub