Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
// [...]
#End Region
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim dFolder As FolderBrowserDialog = New FolderBrowserDialog
        dFolder.SelectedPath = TextBox2.Text
        dFolder.Description = "Wählen Sie bitte den Ordner, in welchem die" & _
          "Bilder gespeichert werden sollen."
        If dFolder.ShowDialog() = DialogResult.OK Then TextBox2.Text = _
        dFolder.SelectedPath
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        AxWebBrowser1.Navigate(TextBox1.Text)
        While AxWebBrowser1.ReadyState <> _
          SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
            Application.DoEvents()
            Threading.Thread.Sleep(100)
        End While
        Dim doc As mshtml.IHTMLDocument2 = AxWebBrowser1.Document
        Dim coll As mshtml.IHTMLElementCollection = doc.all.tags("IMG")
        For Each elem As mshtml.IHTMLElement In coll
            ListBox1.Items.Add(elem.getAttribute("SRC"))
        Next
    End Sub
End Class

Robert Blutner
robertblutner.de