webbrowser + iframe

salut tous le monde,
pour recuperer le 5eme lien dans un webbrowser je fait 
webbrowser1.Document.links.Item(5)

et pour recuperer dans une iframe nomé ID11 comment faire

merci d'avance

voilla j'ai trouver ca

Sub EnumFrames(ByVal wb As WebBrowser)
Dim pContainer As olelib.IOleContainer
Dim pEnumerator As olelib.IEnumUnknown
Dim pUnk As olelib.IUnknown
Dim 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





mais il ya un probleme ici object requied












































EnumFrames (WebBrowser1)

oui c'est sur mais l'erreur et toujour la

Sub EnumFrames(ByVal wb As WebBrowser)
Dim pContainer As olelib.IOleContainer
Dim pEnumerator As olelib.IEnumUnknown
Dim pUnk As olelib.IUnknown
Dim pBrowser As SHDocVw.IWebBrowser2

Set pContainer = wb.Object.Document
If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then
Set pContainer = Nothing
Do While pEnumerator.Next(1, pUnk) = 0
On Error Resume Next
Err.Clear
Set pBrowser = pUnk
If Err.Number = 0 Then
Debug.Print "Frame: " & pBrowser.LocationURL
End If
Loop
Set pEnumerator = Nothing
End If
End Sub

meme avec ce code j'ai acces refuser

Dim Frms As Object
Dim i As Integer
Set Frms = WebBrowser1.Document.frames
For i = 0 To Frms.Length - 1
    MsgBox WebBrowser1.Document.frames(i).Document.body.innerHTML
Next