Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub Mouse Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
 
Private Const IzquierdoAbajo = &H2
Private Const IzquierdoArriba = &H4
Private Const Presionado = -32767
 
Private Type POINTAPI
   X As Long
   Y As Long
End Type
 
Dim Coor As POINTAPI
 
Private Sub CmdIniciar_Click()
   Me.Timer2.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
   GetCursorPos Coor
   Me.lBLx = Coor.X
   Me.lBLy = Coor.Y
 
  If GetAsyncKeyState(vbKeyNumpad1) = Presionado Then
   Me.LblGX = Coor.X
   Me.LblGY = Coor.Y
  ElseIf GetAsyncKeyState(vbKeyNumpad2) = Presionado Then
   Me.Timer2.Enabled = False
  End If
End Sub
 
Private Sub Timer2_Timer()
   SetCursorPos Me.LblGX, Me.LblGY
 
   Mouse IzquierdoAbajo, 0, 0, 0, 0
   Mouse IzquierdoArriba, 0, 0, 0, 0
End Sub