Kod:
Dim HTML_Body As Object, HTML_Img As Object, MyImg As Object
Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
Set HTML_Img = HTML_Body.GetElementsByTagName("img")
Set MyImg = HTML_Img(1)
imgurl = MyImg.src
WebBrowser9.Navigate2 imgurl
Set HTML_Body = Nothing
Set HTML_Img = Nothing
Set MyImg = Nothing
Set IE = Nothing
Yakın zamanda mehmetdemiral hocam benzeri örnek yapmıştı. Konuyu gördüğünde yardımcı olmaya çalışır.