Private Declare Function GetMessagePos Lib "user32" () _
  As Long</pre<
 
GetMessagePos liefert die Koordinaten der letzten Windowmessage. Damit kann man _
  feststellen, dass sich die Maus außerhalb vom eigenen Programm befindet.
 
Für die Rückgabewerte der Koordinaten dann so:
 
<pre><code>' Aktuelle Mauskoordinaten ermitteln
Private Function GetMPts() As POINTAPI
 Dim Longwert As Long
 Dim x As Integer
 Dim y As Integer
 
 Longwert = GetMessagePos()
 
 If (Longwert And &H8000&) = 0 Then
   x = Longwert And &HFFFF&
   y = Longwert / &H10000
 Else
   x = &H8000 Or (Longwert And &H7FFF&)
   y = (Longwert And &H7FFF&) / &H10000
 End If
 
 GetMPts.x = x
 GetMPts.y = y
End Function