WebBrowser1.Navigate( _
          "http://www.vbarchiv.net/forum/id10_i49006t49006.html")
        While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
        End While
        Dim d As HtmlDocument = WebBrowser1.Document
        Dim ec As HtmlElementCollection = d.Images
        For Each elem As HtmlElement In ec
            ListBox1.Items.Add(elem.GetAttribute("src"))
        Next

________
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