Como mover el mouse? (Visual Basic)

[sam90]

Yo solia usar esto para mover de forma loca al mouse!! Espero que te sirva.

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim pos As POINTAPI
a = GetCursorPos(pos)
Randomize
x = pos.x
y = pos.y
x = x + (Int(Rnd * 10) - 5)
y = y + (Int(Rnd * 10) - 5)
a = SetCursorPos(x, y)