如何遍历WebBrowser中网页中的IFrame？

Question

急用各位给个代码或是什么的谢谢啊
为什么我这样用不可以
dim a as htmldocumentPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,URL As Variant)
set a=WebBrowser1.document.frames(1).document
end sub
运行的时候提示说拒绝访问等等，或是接口为限制的什么什么的
再线等。

Answer 1

http://www.mvps.org/emorcillo/en/code/vb6/wbframe.shtml