Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Function GetHwndFromPoint(ByRef p As POINTAPI) As Long
GetHwndFromPoint = WindowFromPoint(p.X, p.Y)
End Function