请问。小弟我想用WebBrowser1控件来显示网页的源代码，但好像总是显示不全。

请教。我想用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 =s
End If

------解决方案--------------------
我测试的只有sina首页只有1W3k多字，
可以用richtextbox替代textbox