http://www.mvps.org/emorcillo/en/code/vb6/wbframe.shtml
Getting the iWebbrowser2 Interface for Each HTML Frame
This code enumerates the frames of a HTML page loaded in the WebBrowser control to get they IWebBrowser2 interface.Note: This tip is based on the Microsoft KB article 196340 and requieres the OLELIB.TLB type library.
EnumFramesSub EnumFrames (ByVal wb As WebBrowser) Dim pContainer As olelib.IOleContainerDim pEnumerator As olelib.IEnumUnknownDim pUnk As olelib.IUnknownDim pBrowser As SHDocVw.IWebBrowser2
Set pContainer = wb.Object.Document 'Get an enumerator for the frames If pContainer.EnumObjects (OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then Set pContainer = Nothing' Enumerate and refresh all the frames Do While pEnumerator.Next (1, pUnk) = 0 On Error Resume Next 'Clear errors Err.Clear' Get the IWebBrowser2 interface Set pBrowser = pUnk If Err.Number = 0 Then Debug.Print "Frame:" & pBrowser.LocationURL End If Loop Set pEnumerator = Nothing End If End Sub
