If WebBrowser1.Url.ToString = ("https://blablablablaaaaa") Then

            While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete

                Application.DoEvents()

            End While

            Dim Nesne As Object

            Nesne = WebBrowser1.Document.DomDocument.body.createControlRange()

            Nesne.Add(WebBrowser1.Document.Images(15).DomElement) 'kaçıncı resimse

            Nesne.execCommand("Copy")

            PictureBox1.Image = My.Computer.Clipboard.GetImage()

            

        End If

Bir başka çözüm. Resimin id si felan olmadığını varsayarsak )

---

Ahh birde bunları text e çevirsek )