look into WebBrowser.Document.Images collection, for example: Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) MsgBox WebBrowser1.Document.Images.Item(0).Href End Sub
ooops, sorryPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) MsgBox WebBrowser1.Document.Images.Item(0).Src End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox WebBrowser1.Document.Images.Item(0).Href
End Sub
MsgBox WebBrowser1.Document.Images.Item(0).Src
End Sub