vb.net WebBrowser控件使用

Public Class Form1
    Dim time As Integer = 0

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       Me.WebBrowser1.Navigate("http://www.baidu.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
      Select Case time
          Case 0
               ' wd为baidu中输入搜索内容的标志,注意搜索按钮触发的方法
               Me.WebBrowser1.Document.All("wd").SetAttribute("value", "奥运")
                Me.WebBrowser1.Document.Forms(0).InvokeMember("submit")
             time += 1
    End Select
    End Sub

    Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow

      '点击链接时，禁止打开新窗体。
        e.Cancel = True

      '此时转向自身窗体。
        Me.WebBrowser1.Navigate(CType(sender, WebBrowser).StatusText)
    End Sub
End Class