Option Explicit
Private Type UUID
   Data1 As Long
   Data2 As Integer
   Data3 As Integer
   Data4( 0  To  7 ) As Byte
End Type

Private Const SMTO_ABORTIFHUNG = &H2
Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Long, riid As UUID, ByVal wParam As Long, ppvObject As Any) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long

Private wnds As Collection

Public Function IEDOMFromhWnd(ByVal hwnd As Long) As IHTMLDocument
Dim IID_IHTMLDocument As UUID
Dim hWndChild As Long
Dim lRes As Long
Dim lMsg As Long
Dim hr As Long
    lMsg = RegisterWindowMessage("WM_HTML_GETOBJECT")
    SendMessageTimeout GetUrlWindow(hwnd, , "Internet Explorer_Server"), lMsg,  0 ,  0 , SMTO_ABORTIFHUNG,  1000 , lRes
    If lRes Then
        With IID_IHTMLDocument
            .Data1 = &H626FC520
            .Data2 = &HA41E
            .Data3 = &H11CF
            .Data4( 0 ) = &HA7
            .Data4( 1 ) = &H31
            .Data4( 2 ) = &H0
            .Data4( 3 ) = &HA0
            .Data4( 4 ) = &HC9
            .Data4( 5 ) = &H8
            .Data4( 6 ) = &H26
            .Data4( 7 ) = &H37
        End With
        hr = ObjectFromLresult(lRes, IID_IHTMLDocument,  0 , IEDOMFromhWnd)
    End If
End Function