Mover raton de un sitio a otro!

[albertosalvad4]

Ei!!

Quiero mover el puntero del raton de un sitio a otro horizontalmente sin parar.
Pero no se como hacerlo Como determino las coordenadas del puntero del raton??

Gracias

[GeoAvila]

el codigo seria algo asi..

Código:

Option Explicit

Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long
SetCursorPos 256, 256
a = 2
b = 5
c = a + b
SetCursorPos 512, 512
End Sub

nos vemos..

[albertosalvad4]

Muchas gracias eres el mejor