'下面代码可以实现将某网页的某框架内容显示在新的WEBBROWSER中.
'add two webbrowser and a commandbutton to form1:
Private Sub Command1_Click()
Dim html As String
html = WebBrowser1.Document.frames(4).Document.body.innerHTML
html = "<HTML>" & "<BODY>" & html & "</BODY>" & "</HTML>"
WebBrowser2.Navigate "about:blank"
WebBrowser2.Document.write html
End Sub
'
Private Sub Form_Load()
WebBrowser1.Navigate "http://community.csdn.net/Expert/topic/4733/4733339.xml", 0
End Sub