Private Sub WebBrowser1_NewWindow(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow e.Cancel = True Dim url As String url = sender.Document.ActiveElement.GetAttribute("href") Dim tab As New TabPage Dim browser As New WebBrowser tab.Controls.Add(browser) browser.Dock = DockStyle.Fill TabControl1.TabPages.Add(tab) browser.Navigate(url) TabControl1.SelectedTab = tab End Sub