How To Find the src Attribute of a Frame Element

    Dim fDoc As HTMLDocument 
    Dim fra As SHDocVw.InternetExplorer 
    Dim x As Integer 

    Set fDoc = WebBrowser1.Document 
    For x = 0 To fDoc.All.length - 1 
        If TypeName(fDoc.All(x)) = "HTMLFrameElement" Then 
            Set fra = fDoc.All(x) 
            Debug.Print fra.Document.location.href 
        End If 
    Next 
    
    Set fDoc = Nothing   
    Set fra = Nothing
				

    Dim fDoc    As HTMLDocument
    Dim fra     As HTMLFrameElement
    Dim frawnd  As HTMLWindow2
    Dim x       As Integer

    Set fDoc = WebBrowser1.Document
    '   Loop through the frames.
    If fDoc.frames.length <> 0 Then
        For x = 0 To fDoc.frames.length - 1
            Set frawnd = fDoc.frames.Item(x)
            Set fra = frawnd.frameElement
            Debug.Print fra.src
        Next x
    End If

    Set fDoc = Nothing
    Set frawnd = Nothing
    Set fra = Nothing
				

  HRESULT         hr = NULL;
  IDispatch*      pDisp = NULL;
  IHTMLDocument2* pDoc = NULL;

  pDisp = m_webOC.GetDocument();	
  if(SUCCEEDED(hr = pDisp->QueryInterface(IID_IHTMLDocument2,(void**)&pDoc)) &&
(pDoc)) 
  {
    IHTMLElementCollection* pColl = NULL;
    if(SUCCEEDED(hr = pDoc->get_all( &pColl )))
    {
       long length = 0;
       if(SUCCEEDED(hr = pColl->get_length(&length)) && (length))
       {
	  for (int x = 0; x < length; x++ )
	  {
	     VARIANT	Index;
	     IDispatch*	pDisp2	= NULL;
	     Index.vt =	VT_UINT;
	     Index.lVal	= x;
	     VARIANT	var2;
	     VariantInit( &var2 );
	     if(SUCCEEDED(hr = pColl->item (Index, var2, &pDisp2)))
	     {
		IHTMLFrameBase*	pBase =	NULL;
	         if(SUCCEEDED(hr = pDisp2->QueryInterface(IID_IHTMLFrameBase,(void**)&pBase)) && (pBase))
		{
		   BSTR src = NULL;
                     pBase->get_src(&src);				
                 }
	      }
	   }
	}
      }
   }