kode til at bevæge ens mus cursor

Den findes i Windows API og hedder SetCursorPos. Jeg har lavet et eksempel (du skal have en form med en timer, der hedder Timer1). Koden bevæger din cursor rundt på skærmen til du trykker space:

Option Explicit
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private wScr As Long
Private hScr As Long
Private cX  As Long
Private cY  As Long
Private dX  As Long
Private dY  As Long

Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc(" ") Then End
End Sub


Private Sub Form_Load()
   
    ' sørg for at cursor ikke er låst
    Dim ans As Long
    ans = ClipCursor(0)
   
    ' hent skærmstørrelse
    wScr = GetSystemMetrics(SM_CXSCREEN)
    hScr = GetSystemMetrics(SM_CYSCREEN)
   
    cX = wScr / 2
    cY = hScr / 2
    dX = 4
    dY = 4
   
    ' indstil timer
    Timer1.Interval = 25
    Timer1.Enabled = True
       
End Sub

Private Sub Timer1_Timer()
    Dim ans As Long
   
    cX = cX + dX
    cY = cY + dY
   
    If (cX <= 0) Or (cX >= wScr) Then dX = dX * -1
    If (cY <= 0) Or (cX >= hScr) Then dY = dY * -1
   
    ans = SetCursorPos(cX, cY)
   
End Sub

takker for det lige det der skulle bruges :)