Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
      Handles WebBrowser1.DocumentCompleted
        ComboBox1.Items.Add(WebBrowser1.Document.Url)
        ComboBox1.Text = WebBrowser1.Document.Url
    End Sub