Программное перемещение курсора мыши - VB

Timer1.Interval = 2000
 
Private Sub Timer1_Timer()   
  
     Static Pos As POINTAPI    
     Dim lRetVal As Long
 
     Pos.X = Pos.X + 10
     Pos.Y = Pos.Y + 1
     If (Pos.X >= Screen.Width) Then Pos.X = 0
     If (Pos.Y >= Screen.Height) Then Pos.Y = 0
     lRetVal = SetCursorPos(Pos.X, Pos.Y)
 
End Sub