Moving the mouse around automatically

Does anyone know how to move the mouse around automatically, and stop when it comes over a particular piece of text or an image.

Code:

---

'an example of how to move a mouse using API
'
'=================================================
'Bas Module Code

Option Explicit

Public Type POINTAPI
    x As Long
    y As Long
End Type

Public Declare Function ClientToScreen Lib _
"user32" (ByVal hwnd As Long, lpPoint As POINTAPI) _
As Long

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

'===================================================
'Form Code

Option Explicit

Sub MoveMouse(x As Single, y As Single)

    Dim sPoint As POINTAPI

    sPoint.x = x
    sPoint.y = y
   
    ClientToScreen hwnd, sPoint
    SetCursorPos sPoint.x, sPoint.y

End Sub

Private Sub Command1_Click()
    MoveMouse Target.Left + Target.Width / 2, _
              Target.Top + Target.Height / 2
End Sub

---

Be careful, dude.
I wouldn´t like my mouse roaming all over the desk!

(lol)

hmm... would that little roaming mouse be looking for a link to click by chance?

To give the mouse a bit of an effect:

Code:

---

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

Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

Public Type POINTAPI
    x As Long
    y As Long
End Type

Private Sub Command1_Click()
For i = 100 To 300
SetCursorPos i, i: Sleep 10
DoEvents
Next i
End Sub

---