Private Sub cmdAddTabPage_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
    Handles cmdAddTabPage.Click
        Dim page As New TabPage("Neue Page " & tabCtrl.TabPages.Count + 1)
        tabCtrl.TabPages.Add(page)
        Dim br As New WebBrowser
        br.Dock = DockStyle.Fill
        AddHandler br.DocumentCompleted, AddressOf browser_DocumentCompleted
        page.Controls.Add(br)
        br.Navigate("http://www.vbarchiv.net")
        tabCtrl.SelectedTab = page
    End Sub
 
 
    Private Sub browser_DocumentCompleted(ByVal sender As Object, ByVal e As _
      WebBrowserDocumentCompletedEventArgs)
        'Title des aktuellen Dokuments in TabPage schreiben
        Dim br As WebBrowser = CType(sender, WebBrowser)
        Dim doc As HtmlDocument = br.Document
        Dim pg As TabPage = CType(br.Parent, TabPage)
        pg.Text = doc.Title
    End Sub