Public Function inobject(obj As Object) As Boolean
Dim locobj As POINTAPI, loc As POINTAPI
GetCursorPos loc
ClientToScreen obj.Parent.hwnd, locobj
If loc.X > locobj.X + obj.Left / Screen.TwipsPerPixelX And _
loc.Y > locobj.Y + obj.Top / Screen.TwipsPerPixelY And _
loc.X < locobj.X + (obj.Left + obj.Width) / Screen.TwipsPerPixelX And _
loc.Y < locobj.Y + (obj.Top + obj.Height) / Screen.TwipsPerPixelY Then
inobject = True
Else
inobject = False
End If
End Function