Public Sub webBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs)
Dim strUrl As String = e.Url.ToString()
msgbox(strUrl)
End Sub
窗口afterload
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").basecontrol
AddHandler web.Navigated, AddressOf webBrowser1_Navigated