C# / VB.NET - [VB.NET] ma come diavolo faccio a far si che la textbox sia costantemente uguale all'indirizzo del webbrowser??????

allora sto creando un browser in vb.net e vorrei che la textbox dove inserisco l'indirizzo sia sempre uguale all'indirizzo del webbrowser come avviene in ogni browser per internet.
p.s. il mio browser ha la navigazione a schede quindi uso l'istruzione CType()

semplicemente nell'evento DocumentComplete del browser imposti il valore della textbox...

il problema è che non ci riesco con l'istruzione CType!
il mio browser è questo e

Public Class Form1
    Dim i As Integer = 0
    Private Sub browse_done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
        Timer1.Enabled = True
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim browse As New WebBrowser
        browse.Name = "bl"
        browse.Dock = DockStyle.Fill
        AddHandler browse.DocumentCompleted, AddressOf browse_done
        TabControl1.TabPages.Add(i, "Pagina " & i + 1)
        TabControl1.SelectTab(i)
        TabControl1.SelectedTab.Controls.Add(browse)
        i = i + 1
        browse.Navigate("www.google.com")

        Dim browse1 As New WebBrowser
        browse1.Name = "bl"
        browse1.Dock = DockStyle.Fill
        AddHandler browse1.DocumentCompleted, AddressOf browse_done
        TabControl1.TabPages.Add(i, "Facebook")
        TabControl1.SelectTab(i)
        TabControl1.SelectedTab.Controls.Add(browse1)
        i = i + 1
        browse1.Navigate("www.facebook.com")

        Dim browse2 As New WebBrowser
        browse2.Name = "bl"
        browse2.Dock = DockStyle.Fill
        AddHandler browse2.DocumentCompleted, AddressOf browse_done
        TabControl1.TabPages.Add(i, "YouTube")
        TabControl1.SelectTab(i)
        TabControl1.SelectedTab.Controls.Add(browse2)
        i = i + 1
        browse2.Navigate("www.youtube.com")

        Dim browse3 As New WebBrowser
        browse3.Name = "bl"
        browse3.Dock = DockStyle.Fill
        AddHandler browse3.DocumentCompleted, AddressOf browse_done
        TabControl1.TabPages.Add(i, "!T$F")
        TabControl1.SelectTab(i)
        TabControl1.SelectedTab.Controls.Add(browse3)
        i = i + 1
        browse3.Navigate("www.itsfclan.com")


        TabControl1.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
        Timer1.Enabled = True
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim browse As New WebBrowser
        browse.Name = "bl"
        browse.Dock = DockStyle.Fill
        AddHandler browse.DocumentCompleted, AddressOf browse_done
        TabControl1.TabPages.Add(i, "Pagina " & i + 1)
        TabControl1.SelectTab(i)
        TabControl1.SelectedTab.Controls.Add(browse)
        i = i + 1
        browse.Navigate("www.google.com")
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If ComboBox1.SelectedItem = "Google" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.google.it/search?hl=it&q=" & TextBox2.Text)
        ElseIf ComboBox1.SelectedItem = "Google immagini" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://images.google.it/images?q=" & TextBox2.Text)
        ElseIf ComboBox1.SelectedItem = "Google video" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://video.google.it/videosearch?q=" & TextBox2.Text)
        ElseIf ComboBox1.SelectedItem = "Yahoo" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://it.search.yahoo.com/search?p=" & TextBox2.Text)
        ElseIf ComboBox1.SelectedItem = "Bing" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.bing.com/search?q=" & TextBox2.Text)
        ElseIf ComboBox1.SelectedItem = "Youtube" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.youtube.com/results?search_query=" & TextBox2.Text)
        ElseIf ComboBox1.SelectedItem = "Wikipedia" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://it.wikipedia.org/w/index.php?title=Speciale:Ricerca&search=" & TextBox2.Text & "&fulltext=Ricerca")
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
    End Sub
End Class

dove diavolo la metto quell'istruzione?? vi prego aiutatemi sono disperato!!!

il codice va inserito in browse_done che si occupa del caricamento della pagina
e insieme ad aggiornare il titolo sulla scheda devi aggiornare la textbox 2 volte:

-Quando la pagina viene caricata:

Private Sub browse_done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
TabControl1.SelectedTab.Text = Type(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
Timer1.Enabled = True
Textbox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url
End Sub

-Quando si seleziona un'altra scheda e bisogna cambiare l'url della textbox con l'url del webbrowser selezionato:

'evento TabControl1_SelectedIndexChanged 
Textbox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url

nulla di più semplice...

ci avevo già provato così ma mi da giustamente un errore che dice che non puo convertire il formato "Url" in string!
E se metto ".ToString" dopo "Url" mi da errore lo stesso!!
Non esiste un particolare strumento che possa contenere l'Url del webbrowser??
O comunque non c'è una soluzione al mio problema?
Non so se è rilevante ma io uso la prova di 90 giorni di visual studio 2010 ultimate

Ho provato personalmente usando ".ToString" e non da nessun errore...
In ogni caso ho provato ad usare:

Textbox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.OriginalString

e anche

TextBox1.Text = CType(TabControl1.SelectedTab.Controls(0), WebBrowser).Url.AbsoluteUri

e funzionano entrambi...

non so perchè il to string non funziona! comunque adesso è tutto apposto!! GRAZIE 100!!