вывод картинки в форму (визуал бейсик 6)

[A_n_d_r_e_i]

в CommandButton тычем этот код
Dim O As Object
Set O = WebBrowser1.Document.body.createControlRange()
Call O.Add(WebBrowser1.Document.All("qwe1"))
Call O.execCommand("Copy")
Set Picture1.Picture = Clipboard.GetData
где qwe1 - name картинки в хтмл
на форме:
PictureBox
Webbrowser
CommandButton