[Visual Basic 2008] Problema bookmarks web browser

[Ettiggi]

Hello!..(sto per sclerare)

Sto mettendo su un browser web con visual basic 2008, a tempo perso, non riesco a modificare questo codice, in modo che possa essere adattato per un Web Browser con Schede e non con un unica scheda (le Tab) ..[tabcontrol1] è il nome del controllo a schede mentre [webbrowser1] è quello per la scheda unica già presente in quel codice

Public Class bookmarks

    Private Sub bookmarks_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        tt.Hide()

        TextBox1.Text = Form1.WebBrowser1.Url.AbsoluteUri
        tt.Text = My.Settings.bookmarks
        For Each blabla As String In tt.Lines
            ListBox1.Items.Add(blabla)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        My.Settings.bookmarks = My.Settings.bookmarks + ControlChars.NewLine + TextBox1.Text
        My.Settings.Save()
    End Sub

    Private Sub t1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Form1.WebBrowser1.Navigate(ListBox1.SelectedItem)
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form1.WebBrowser1.Stop()
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        My.Settings.bookmarks = ""
        For Each remove As String In ListBox1.Items
            My.Settings.bookmarks = remove
        Next
        My.Settings.Save()
    End Sub

    Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDoubleClick
        Form1.WebBrowser1.Navigate(ListBox1.SelectedItem)
    End Sub
End Class