vb状态栏怎么读取网页状态栏信息

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

---

引用

VB codePrivateSub Form_Load()
StatusBar1.Panels.Add1
StatusBar1.Panels(1).Width=4000

StatusBar1.Panels.Add2
StatusBar1.Panels(2).Width=4000
WebBrowser1.Navigate"http://www.hao123.com/"End SubPrivateS?-

谢谢！功能是实现了，但是我的程序中WebBrowser1由几个按钮控制几个网页显示，因此会出现读取不同网页状态栏信息。
但是我想要状态栏专门读取一个固定网页状态栏的信息啊

---

If WebBrowser1.LocationURL="http://www.csdn.net/" THEN
StatusBar1.Panels(1).Text = WebBrowser1.LocationURL
End If

---

引用

If WebBrowser1.LocationURL="http://www.csdn.net/" THEN
StatusBar1.Panels(1).Text = WebBrowser1.LocationURL
End If

我是初学者，这个代码放哪里啊

---

引用

If WebBrowser1.LocationURL="http://www.csdn.net/" THEN
StatusBar1.Panels(1).Text = WebBrowser1.LocationURL
End If

我现在的代码是
VB code:
Private Sub Form_Load()
StatusBar1.Panels.Add 1
StatusBar1.Panels(1).Width = 1630

StatusBar1.Panels.Add 2
StatusBar1.Panels(2).Width = 4000
WebBrowser1.Navigate &q