Private Sub WebBrowser1_NewWindow(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow Dim wb As WebBrowser = sender Dim myElement As HtmlElement = wb.Document.ActiveElement Dim target As String = myElement.GetAttribute("href") Dim newTabPage As TabPage = New TabPage() Dim newWebBrowser As WebBrowser = New WebBrowser() newWebBrowser.IsWebBrowserContextMenuEnabled = False newWebBrowser.Dock = DockStyle.Fill AddHandler newWebBrowser.NewWindow, AddressOf WebBrowser1_NewWindow AddHandler newWebBrowser.ProgressChanged, AddressOf WebBrowser1_ProgressChanged newTabPage.Text = "New Tab" newTabPage.Controls.Add(newWebBrowser) TabControl1.TabPages.Add(newTabPage) TabControl1.SelectedTab = TabControl1.TabPages(TabControl1.TabCount - 1) newWebBrowser.Navigate(target) e.Cancel = True End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)