'Speicher die Tabs in einer Liste
Dim Tabs As List(Of Tab)
'Tab Struktur
Structure Tab
        Dim Browser As WebBrowser
        Dim Button As ToolStripButton
        Dim GUID As String
        Dim ID As Integer
    End Structure
 
 Sub NewTab(ByVal URL As String)
        Dim NewTab As Tab
        NewTab.Browser = New WebBrowser
        NewTab.Button = New ToolStripButton
        NewTab.GUID = Guid.NewGuid.ToString
        NewTab.ID = Tabs.Count
 
        AddHandler NewTab.Browser.Navigated, AddressOf (WB_Navigated)
        '.u.s.w.
        Me.Controls.Add(NewTab.Browser)
 
        NewTab.Browser.Visible = True
        NewTab.Browser.Navigate(URL)
        Tabs.Add(NewTab)
        TabBar.Items.Add (NewTab.Button)
 
    End Sub