Private Declare Function GetCursorPos Lib _
   "user32" (lpPoint As POINTAPI) As Long
 
Private Declare Function PtInRect Lib "user32" _
  (lpRect As RECT, ByVal x As Long, ByVal y As Long) _
  As Long
 
Private Declare Function GetWindowRect Lib _
   "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
 
Private nMouseTop As Long
Private nMouseLeft As Long
 
Private Sub Form_Load()
   Timer1.Interval = 50
End Sub
 
Private Sub Timer1_Timer()
   Dim oPkt As POINTAPI
   Dim orec As RECT
   Dim wndPos As RECT
   Dim rval As Long
 
   'Windowposition im Bezug zum Screen
   GetWindowRect Me.hwnd, orec
   'Absolute Mauskoordinaten
   GetCursorPos oPkt
   'Befindet sich die Maus auf der Form?
   rval = PtInRect(orec, oPkt.x, oPkt.y)
   'Wenn ja, Koordinaten in Twips zurückgeben,
   'ansonsten 0
   nMouseTop = 0
   nMouseLeft = 0
   If rval <> 0 Then
      nMouseTop = oPkt.y * Screen.TwipsPerPixelY
      nMouseLeft = oPkt.x * Screen.TwipsPerPixelX
   End If
 
End Sub