Public Sub SaveImagesFromHTMLDocument(doc as mshtml.HTMLDocument)	
 
	Dim count as Integer = 0	
 
	For Each img As mshtml.HTMLImg In doc.Images
 
		Dim body As mshtml.IHTMLElement2 = DirectCast(doc.body , mshtml.IHTMLElement2)
 
		Dim control As mshtml.IHTMLControlRange = DirectCast(body.createControlRange( _
  ), mshtml.IHTMLControlRange)
 
		control.add(DirectCast(img, mshtml.IHTMLControlElement))
 
		control.execCommand("Copy", False, Type.Missing)
 
		If Clipboard.GetDataObject() IsNot Nothing Then
 
			Dim clipData As IDataObject = Clipboard.GetDataObject()
 
			Dim image As Image = DirectCast(clipData.GetData(DataFormats.Bitmap, True), _
  Image)
 
			count = count + 1
 
			image.Save("c:\image" + count.ToString + ".jpg", _
  System.Drawing.Imaging.ImageFormat.Jpeg)
 
		End If				
 
	Next	
 
End Sub

Gruss mm78pr

http://msdn.microsoft.com/de-de/default.aspx