ciao [Folcus]
per spostare il cursore del mouse, in modo visibile,
puoi utilizzare questa funzione di windows

Da inserire in TESTA alla form della funzione mouse, o in MODULE
rem diciarazione publica della funzione
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Da inserire nella funzione che sposta il mouse
rem inserimento valore NUOVA posizione mouse
Din X,Y
X = InputBox("inserire valore X del mouse", "VALORE NUMERICO X MOUSE")
Y = InputBox("inserire valore Y del mouse", "VALORE NUMERICO Y MOUSE")
SetCursorPos X, Y 'imposta posizione mouse
Spero di esserti stato utile, per spostare il mouse.
Al posto di X,Y puoi inserire i valori, numerici, delle nuove coordinate per il mouse