Visual Basic - Mover el cursor automaticamente

Hola queria saber como se podria hacer para que el cursor se moviera automaticamente de un lado para otro sin parar , gracias.

podrias usar el API SetCursorPos esta situa el cursor en un punto x,y hace una funcion que te retorne de forma aleatoria las coordenadas x, y y llamas la funcion, aqui te pongo la declaracion del api y un ejemplo que situa el cursor en la posicion 100,100
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Call SetCursorPos(100, 100)
End Sub

Espero te sirva.