в CommandButton тычем этот код Code: 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