Private Sub testLoadDocumentFromUrl()
        Dim doc As mshtml.HTMLDocument = getDocumentFromUrl( _
          "http://www.vbarchiv.net/forum/id10_i48959t48959.html")
 
        For Each img As mshtml.IHTMLImgElement In doc.images
            ListBox1.Items.Add(img.src)
        Next
    End Sub
 
 
    Private Function getDocumentFromUrl(ByVal url As String) As _
      mshtml.HTMLDocument
        Dim doc As New mshtml.HTMLDocument
        System.Messaging.ActiveXMessageFormatter.InitStreamedObject(doc)
 
        Try
            doc = doc.createDocumentFromUrl(url, vbNullString)
            Do
                System.Windows.Forms.Application.DoEvents()
                System.Threading.Thread.Sleep(100)
            Loop While doc.readyState <> "complete"
        Catch ex As System.Exception
            MsgBox("Error loading document: " & ex.Message)
            doc = Nothing
        End Try
        Return doc
    End Function

________
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