Many Things

Public Class Form1

    Dim CurrBrowser As WebBrowser


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        
        Me.TabControl1.TabPages.Clear()
        AddTab("Neuer Tab...", "about:blank")

    
        GetCurrBrowser()

    End Sub

    Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles ComboBox1.KeyDown

      
        If e.KeyCode = Keys.Enter Then
            CurrBrowser.Navigate(Me.ComboBox1.Text)
            Me.ComboBox1.Items.Add(Me.ComboBox1.Text)
        End If

    End Sub

    Private Sub TabPage1_TabIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.TabIndexChanged
        GetCurrBrowser()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     
        AddTab("Neuer Tab...", "about:blank")

    End Sub

    Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)

 
        Me.TabControl1.SelectedTab.Text = CurrBrowser.DocumentTitle

        
        If e.Url.AbsoluteUri = "about:blank" Then
            Me.TabControl1.SelectedTab.Text = "New Tab..."
        End If

    End Sub

    Private Sub wb_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)

        Me.ComboBox1.Text = CurrBrowser.Url.AbsoluteUri

    End Sub

    Private Sub wb_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs)

        ' add to list

        Me.ComboBox1.Text = CurrBrowser.Url.AbsoluteUri

    End Sub

    Sub AddTab(ByVal name As String, ByVal url As String)

        Dim tab As TabPage = New TabPage(name)
        Dim wb As WebBrowser = New WebBrowser

        ' navigate to url
        wb.Navigate(url)
        wb.Dock = DockStyle.Fill

        ' move browser to tab
        tab.Controls.Add(wb)

      
        AddHandler wb.DocumentCompleted, AddressOf wb_DocumentCompleted
        AddHandler wb.Navigating, AddressOf wb_Navigating
        AddHandler wb.Navigated, AddressOf wb_Navigated

        ' add to tabcontrol
        Me.TabControl1.TabPages.Add(tab)

    End Sub

    Sub GetCurrBrowser()

        ' CurrBrowser set to selected tab
        For Each wb As WebBrowser In Me.TabControl1.SelectedTab.Controls
            CurrBrowser = wb
            Exit For
        Next

    End Sub
End Class

My.settings.homepage = textbox1.text
my.settings.save
my.settings.reload

webbrowser1.navigate(my.settings.homepage)