Mover el mouse a una determinada posicion
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)
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Sub Command1_Click()
mouse_event MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE, 10000, 10000, 0, 0
End Sub
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Sub Command1_Click()
mouse_event MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE, 10000, 10000, 0, 0
End Sub
