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
kodunun altındakiPrivate 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
kodunu da kendi uygulamanıza ekleyiniz. Bu kod ile webbrowserdaki resim temp klasörüne kaydedilir.
Ayrıca,giriş butonunu tıklamak için "HTML.Forms("formA").submit" kodunu kullanmalısınız, aksi takdirde yeni Html sayfası açılır.