Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As pointapi) As _
  Long
 
Private Type pointapi
  x As Long
  y As Long
End Type
 
 
Private Sub Timer1_Timer()
Dim CP As pointapi
  GetCursorPos CP
  Label1.Caption = "X: " & CP.x & " / Y: " & CP.y
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.