Option Explicit
Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
        Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2
  
  
Private Sub Timer1_Timer()
    Dim i As Integer
      
    For i = 1 To 1
        If GetAsyncKeyState(i) = -32767 Then
            mouse_event MOUSEEVENTF_LEFTDOWN, 0, 10, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 10, 0, 0
        End If
    Next
End Sub
  
Private Sub Form_Load()
    ' intervalo para el timer
    Timer1.Interval = 50
End Sub