Private Sub webBrowser1_Navigated(ByVal sender As Object, _
    ByVal e As WebBrowserNavigatedEventArgs) _
    Handles webBrowser1.Navigated
 
Dim meineUrl As String
        meineUrl = webBrowser1.Url.ToString()
        ComboBox1.Items.Add(meineUrl)   
 
End Sub

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1