Public Class MyBrowser
#Region "Variabeln"
    ''' <summary>
    ''' Speichert die Tabs
    ''' </summary>
    ''' <remarks></remarks>
    Private Tabs As New List(Of Tab)
    Dim WithEvents BroActivX As SHDocVw.WebBrowser_V1
#End Region
#Region "Struktur Tab"
    Structure Tab
        Dim Browser As WebBrowser  'Webbroser Element
        Dim TabButton As ToolStripButton 'Button für die Toolbar
        Dim GUID As String 'Optional zur Eindeutigen Identifizierung des Tabs
        Dim ID As Integer  'Optional Tabnummer
    End Structure
#End Region
#Region "Handler Tab-Click"
    Private Sub Tab_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs)
        For Each C As Tab In Tabs
            If C.TabButton Is sender Then
                C.Browser.BringToFront()
                Exit For
            End If
        Next
    End Sub
#End Region
#Region "Event des COM Objekt Browser"
    Private Sub Bro_NewWindow(ByVal URL As String, ByVal Flags As _
      Integer, ByVal TargetFrameName As String, ByRef PostData As Object, _
      ByVal Headers As String, ByRef Processed As Boolean) Handles _
      BroActivX.NewWindow
        NewTab(URL)
        Processed = True
    End Sub
#End Region
#Region "Events der WebBrowsers (.NET)"
    Private Sub Bro_DocumentTitleChanged(ByVal sender As Object, ByVal e As  _
      System.EventArgs)
        'Dein Code
        For Each C As Tab In Tabs
            If C.Browser Is sender Then
                C.TabButton.Text = C.Browser.DocumentTitle
                Exit For
            End If
        Next
    End Sub
 
    Private Sub Bro_Navigated(ByVal sender As Object, ByVal e As  _
      System.Windows.Forms.WebBrowserNavigatedEventArgs)
        'Dein Code
        BroActivX = sender.ActiveXInstance
    End Sub
 
    Private Sub Bro_Navigating(ByVal sender As Object, ByVal e As  _
      System.Windows.Forms.WebBrowserNavigatingEventArgs)
        'Dein Code
    End Sub
#End Region
#Region "Neuen Tab Anlegen"
    Private Sub NewTab(ByVal Url As String)
        Try
            Dim NTab As Tab                                 'Neue Struktur
            ' anlegen
            Dim NewBro As New WebBrowser                    'Neuses Browser
            ' Fenster anlegen
            Dim NewButton As New ToolStripButton            'Neuen Button für
            ' die ToolBar
            Dim _GUID As String = Guid.NewGuid.ToString     'GUID zu
            ' Eindeutigen Identifizierung (Optional)
 
            AddHandler NewBro.Navigated, AddressOf Bro_Navigated
            AddHandler NewBro.Navigating, AddressOf Bro_Navigating
            AddHandler NewBro.DocumentTitleChanged, AddressOf _
              Bro_DocumentTitleChanged
            BroActivX = NewBro.ActiveXInstance
 
            AddHandler NewButton.Click, AddressOf Tab_Click
            NewBro.Navigate(Url)                            'Zur URL Navigieren
            NewBro.BringToFront()                           'Browser in den
            ' Vordergrund
            NewBro.Dock = DockStyle.Fill
 
            'ActixBrowser = NewBro.ActiveXInstance           'ActivX Setzen
 
            Me.Controls.Add(NewBro)                         'Broser der Form
            ' hinzufügen
            NewButton.DisplayStyle = ToolStripItemDisplayStyle.ImageAndText
            NewButton.Text = NewBro.DocumentTitle           'Titel der Webseite
 
            ' im Button anzeigen
            ToolBar.Items.Add(NewButton)                 'Button der Toolbar
            Dim Separator As New ToolStripSeparator
            ToolBar.Items.Add(Separator)
            ' hinzufügen
 
            NTab.Browser = NewBro                           'Elemete der
            ' Struktur hinzufügen
            NTab.GUID = _GUID
            NTab.ID = Tabs.Count
            NTab.TabButton = NewButton
 
            Tabs.Add(NTab)                                  'Struktur in der
            ' Liste der geöffneten Tabs hinzufügen.
 
        Catch ex As Exception
            MsgBox("Fehler " & vbCrLf & ex.Message)
        End Try
    End Sub
#End Region
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
        NewTab("www.vbarchiv.de")
        NewTab("www.google.de")
    End Sub
End Class