vb状态栏如何读取网页状态栏信息

vb状态栏怎么读取网页状态栏信息
请问vb状态栏读取网页状态栏信息的代码啊，谢谢啦

[解决办法]

VB code

Private Sub Form_Load()StatusBar1.Panels.Add 1StatusBar1.Panels(1).Width = 4000StatusBar1.Panels.Add 2StatusBar1.Panels(2).Width = 4000WebBrowser1.Navigate "http://www.hao123.com/"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)StatusBar1.Panels(1).Text = WebBrowser1.LocationURLEnd SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)StatusBar1.Panels(2).Text = TextEnd Sub