Dim HTML_Body, HTML_Img As Object, AlinanResim As Object
Dim TempDir As String     
       Set HTML_Body = WebBrowser1.Document.all.tags("Body").Item(0)
       Set HTML_Img = HTML_Body.getElementsByTagName("img")
       Set AlinanResim = HTML_Img(14)
       TempDir = Environ("Temp")
       
       URLDownloadToFile 0, AlinanResim.src, TempDir & "\1.png", 0, 0
       Me.resim1.Picture = TempDir & "\1.png"

option compare database

Private Declare Function URLDownloadToFile Lib "urlmon" _


Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long