I found the solution:

VB Code:
  1. Dim HTMLdoc As HTMLDocument

  2. Dim pageImages As HTMLImg

  3.                 

  4.    HTMLDoc = Webbrowser1.Document

  5.              

  6.      For Each pageImages In HTMLdoc.images

  7.                    

  8.                    List2.AddItem pageImages.src

  9.  
  10.      Next pageImages