[Sesa_Mina]

Option Explicit

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

Private Sub Form_Load()
   Dim x As Long, y As Long, z As Long
   Dim fact As Double
   
   fact = Screen.Width / Screen.Height
   
   For y = 0 To Screen.Height \ Screen.TwipsPerPixelY
      x = Int(y * fact)
      SetCursorPos x, y
      For z = 0 To 99
         DoEvents
      Next
   Next
End Sub

damit bewegt sich der cursor diagonal über den schirm von links oben nach rechts unten.