Dim uc As Object 

Public Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        Dim newpage As New TabPage

        newpage.Text = "NewPage"



        Dim browser As New SPControl

        browser.Dock = DockStyle.Fill

        uc = browser



        AddHandler browser.WebBrowser.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted

        newpage.Controls.Add(browser)



        TabControl1.TabPages.Add(newpage)



        TabControl1.SelectedTab = newpage

       

    End Sub



Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

       

        Dim page As TabPage = uc.Parent





        page.Text = sender.DocumentTitle



    End Sub





End Class