How can you move the mouse to a certain point on the screen?

[n00bie]

anyone know?

[MikeBAM]

That's an easy one.

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
 
 
Dim X as Integer, Y as Integer
X = 0
Y = 0
Call SetCursorPos(X, Y)

if you loop that u can have it stick in the corrner.
Another fun thing to do is put in random numbers for X and Y.

or if you want to get the mouse pos then do this:

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Type POINTAPI
   x As Long
   y As Long
End Type
 
Dim XX as Integer
Dim YY as Integer
Dim CurPos As POINTAPI
 
Call GetCursorPos(CurPos)
XX = CurPos.x
YY = CurPos.y