In this code mouse will move to some coordinates. Macro stops when mouse pointer has moved once, Can we move pointer to a specific coordinates and then it should move to another coordinates, and then it should go to previous coordinates. This should happen at an interval of 10 seconds or so and the loop should never stop until stopped manually.
Please suggest modifications in code.



 Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function GetMessageExtraInfo Lib "user32" () As Long


Private Sub Macro()
 

SetCursorPos 150, 200

mouse_event &H2, 0, 0, 0, GetMessageExtraInfo()
mouse_event &H4, 0, 0, 0, GetMessageExtraInfo()
End Sub