Visual Basic 6 - Posizione del mouse in tutto lo schermo

Mi servirebbe di trovare le coordinate della posizione del mouse non solo sulla form del progetto ma rispetto a tutta l'area dello schermo
Ho trovato il seguente codice:

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  Private Type POINTAPI ' This holds the logical cursor information
      x As Integer
      y As Integer
   End Type

   Sub Timer1_Timer()
   Dim rect As POINTAPI
       ' Get the current mouse cursor coordinates:
      Call GetCursorPos(rect)
      Form1.Cls
      ' Print out current position on the form:
      Print "Current X = " & rect.x
      Print "Current Y = " & rect.y
   End Sub

Funziona ma col difetto che viene rilevata solo la coordinata "X" (perché è il primo integer dichiarato dei due) e non la "Y".

Come devo modificarlo?
Grazie

Dichiara x e y come Long

(Fighissima la funzione Print)

Grazie, va alla grande

Per curiosita',una volta trovate le coordinate che ci si puo' fare di bello?



Ciao

Prendere il colore del punto per esempio. In questo modo ho creato un bot per un gioco online.

Uno scopo più "lecito" no, eh?

ad esempio per ingrandire le scritte su cui si "posa" il mouse, per aiutare le persone che vedono poco... insomma una specie di lente d'ingrandimento...

comunque se ci mettiamo a fare esempio non finiamo più xD

Si può aprire un topic... Ne faccio uno in "Tutto e di +"