Private Declare Function SetCapture Lib "user32.dll" (ByVal hWnd As Long) As _
  Long
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SetFocusWnd Lib "user32.dll" _
    Alias "SetFocus" (ByVal hWnd As Long) As Long
 
Public Property Get MausAufObjekt(hWnd As Long, x As Single, y As Single, Width _
  As Long, Height As Long) As Boolean
'Befindet sich die Maus über dem Objekt?
If x >= 0 And y >= 0 And x <= Width And y <= Height Then
    SetCapture hWnd
    MausAufObjekt = True
Else 'wenn nicht
    ReleaseCapture
    MausAufObjekt = False
End If
 
'Beispiel für GetCapture
SetFocusWnd GetCapture
End Property