[Resolvido]Tecla direita do mouse

     Option Compare Database
     Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
     ByVal cButtons As Long, ByVal dwExtraInfo As Long)

     Private Declare Function GetMessageExtraInfo Lib "user32" () As Long

     Const MOUSEEVENTF_LEFTDOWN = &H2
     Const MOUSEEVENTF_LEFTUP = &H4
     Const MOUSEEVENTF_MIDDLEDOWN = &H20
     Const MOUSEEVENTF_MIDDLEUP = &H40
     Const MOUSEEVENTF_MOVE = &H1
     Const MOUSEEVENTF_ABSOLUTE = &H8000
     Const MOUSEEVENTF_RIGHTDOWN = &H8
     Const MOUSEEVENTF_RIGHTUP = &H10

     Sub MouseClick()

     mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, GetMessageExtraInfo()

     mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, GetMessageExtraInfo()

     End Sub

     If KeyCode = vbKeyF3 Then
          Call MouseClick
     End If