Private Function IsMouseInObj() As Boolean
On Error Resume Next
Dim LongWert, X, Y, RVal, WR As RECT
 
    nPt.X = 0
    nPt.Y = 0
    GetWindowRect UserControl.Hwnd, WR
 
    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
 
    RVal = PtInRect(WR, X, Y)
    If RVal > 0 Then
        IsMouseInObj = True
    Else
        IsMouseInObj = False
    End If
End Function