vb怎么获得页面的文本框信息，并赋值

vb如何获得页面的文本框信息，并赋值
vb webbrowser如何获得页面的文本框信息，并赋值

[解决办法]
请你找一个有文本框网页作例子，不然不好测试。
[解决办法]

VB code

Private Sub Form_Load()WebBrowser1.Navigate "http://www.hao123.com/"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Set DOC = WebBrowser1.Documentj = DOC.getElementsByTagName("div").Length - 1For I = 0 To jSet aa = DOC.getElementsByTagName("div")(I)Debug.Print "Id=" & aa.IdNextEnd Sub
[解决办法]
Debug.Print  aa.innertext