获取框架网页的源码

建Webbrowser1,Text1（Multiline＝True）,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
WebBrowser1.Navigate
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1 = WebBrowser1.Document.frames(0).Document.body.innerHTML
End Sub