WebBrowser提交Google问题:如何判断WebBrowser1.Document.Forms(0).submit之后的状态?

Private Sub Form_Load()
Form1.WindowState = 2
WebBrowser1.Navigate2 "http://www.google.com/advanced_search?hl=zh-CN"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.object) Then Exit Sub
Text1.Text = URL
If URL = "http://www.google.com/advanced_search?hl=zh-CN" Then
   WebBrowser1.Document.Forms(0).All.Item("as_q").Value = "沙拉"
   WebBrowser1.Document.Forms(0).submit
End IfEnd Sub上面的代码可以按关键字查询,得到结果,但要是想对这些结果进行操作,必须知道WebBrowser1.Document.Forms(0).submit之后的URL,但如何捕捉WebBrowser1.Document.Forms(0).submit之后的状态?(怎么知道WebBrowser1.Document.Forms(0).submit之后的url?)
请教请教!