Private Sub ExtendedWebBrowser1_NewWindowExtended(ByVal sender As _
      System.Object, ByVal e As _
      WindowsApplication1.WebBrowserNewWindowExtendedEventArgs) Handles _
      ExtendedWebBrowser1.NewWindowExtended
        e.Cancel = True
        ExtendedWebBrowser1.Navigate(e.Url)
    End Sub