ciao android89
per spostare il cursore del mouse e fare click, in modo visibile,
puoi utilizzare questa API di windows per VisualBasic6

codice:

Da inserire in TESTA alla FORM delle funzioni mouse, o in MODULE

Public 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 dwDate As Long, ByVal dwExtraInfo As Long)
Public Type POINT_TYPE
X As Long
Y As Long
End Type
codice:

Da inserire nella funzione che intercetta, sposta e esegue il mouse
Dim X, Y
Dim P As POINT_TYPE

X = GetCursorPos(P) 'estrae la posizione attuale del mouse
rem inserisci la nuova posizione del mouse
X = InputBox("inserire valore X del mouse; corrente:" + Str(P.X), "VALORE NUMERICO X MOUSE")
Y = InputBox("inserire valore Y del mouse; corrente:" + Str(P.Y), "VALORE NUMERICO Y MOUSE")

rem posizione il mouse nella nuova posizione
SetCursorPos X, Y 

Rem simulazione click mouse (sinistra centro destra)
mouse_event &H2 Or &H4, 0, 0, 0, 0 'vbkeylbutton
mouse_event &H20 Or &H40, 0, 0, 0, 0 'vbkeymbutton
mouse_event &H8 Or &H10, 0, 0, 0, 0  'vbkeyrbutton


Spero di esserti stato utile, per spostare il mouse e simulare il CLICK
Al posto di X,Y puoi inserire i valori, numerici, delle nuove coordinate per il mouse