Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles _
  WebBrowser1.Navigating
        WebBrowser1.Url = e.Url
End Sub

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As _
  System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        e.Cancel = True
End Sub