请教。我想用WebBrowser1控件来显示网页的源代码，但好像总是显示不全。请求帮助。
新手很菜，见笑了。

我在百度上查啊查。。。用了
Private Sub Command1_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

Private Sub Command2_Click()
Text2.Text = WebBrowser1.Document.body.innerHTML
End Sub

想实现：点了Command2以后，在Text2中显示WebBrowser1中打开网页的html源文件。
但实际用www.sina.com.cn 和www.techweb.com.cn测试时。显示不完整。请问如何能显示完整？

另外，请问能不能推荐一本傻瓜书，能快速查到控件的说明和参数
多谢～～

[解决办法]

VBScript code

Private Sub Command2_Click() 　　Dim s As String    Dim i As Long        While b = False        DoEvents    Wend    For i = 0 To WebBrowser1.Document.All.length - 1        s = s & WebBrowser1.Document.All(i).innerHTML    Next    Text2.Text =sEnd If
[解决办法]
我测试的只有sina首页只有1W3k多字，
可以用richtextbox替代textbox