Dim MyLinks As String() = {"http://www.bundesnetzagentur.de", _
                           "http://netzikon.net"}
 
    Private Sub UrlListe()
        For Each link As String In MyLinks
            Browser.Navigate(link)
            Do
                Application.DoEvents()
                Threading.Thread.Sleep(100)
            Loop Until Browser.ReadyState = WebBrowserReadyState.Complete
            Debug.WriteLine("Loaded: " & Browser.Url.ToString())
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist