◆读取HTML时的问题

Question

form里有inet\Command1\text1一共三个控件,
以下是我的程序,但读取出来的B()一赋给text2.text显示就全是乱码了.
请问要如何改,谢谢.Private Sub Command1_Click()
Dim B()   As Byte
Inet1.Cancel '取消所有操作
Inet1.Protocol = icHTTP '设定协议为HTTP
Inet1.URL = Text1 '设定URL属性
B() = Inet1.OpenURL(, icByteArray) '将读取的HTML数据放进一个byte  array
Text2.Text = B()
End SubPrivate Sub Form_Load()
Text1.Text = "http://www.909090.com.cn/1234.html"
End Sub

Answer 1

其实我就是想把读出http://www.909090.com.cn/1234.html这个网页的第一行,然后把它赋给一text2就行了.