WinTypeUnderMouse

GetCursorPos, WindowFromPoint,
ChildWindowFromPoint And GetClassName:

Private Declare Function GetCursorPos& Lib "user32" (lpPoint As POINTAPI)
Private Declare Function WindowFromPoint& Lib "user32" (ByVal X As Long,
ByVal Y As Long)
Private Declare Function ChildWindowFromPoint& Lib "user32" (ByVal hWnd As
Long, ByVal X As Long, ByVal Y As Long)
Private Declare Function GetClassName& Lib "user32" Alias "GetClassNameA"
(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)