WithEvents wb As New WebBrowser
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Controls.Add(wb)
wb.Dock = DockStyle.Fill
wb.Navigate(New Uri("http://www.google.com"))
End Sub
Private Sub wb_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs) Handles wb.Navigated
Me.Text = wb.Url.ToString()
End Sub