<code>Declare Function GetCursorPos Lib "user32" _
  (lpPoint As POINTAPI) As Long
 
Type POINTAPI
  x As Long
  y As Long
End Type</code>

<code><font color=green>' Mausposition in Screen-Koordinaten</font>
Dim P As POINTAPI
 
GetCursorPos P
Label1.Caption = CStr(P.x) & ", " & CStr(P.y)</code>