[求助]WebBrower控件里的内容复制不出来

本人最近使用VB.NET编写了一个取网页资料的工具，在编写过程中，发现如此问题：

网页资源地址为：http://10.1.0.1/aaa/aa.jpg

function sub PicCopy()
  with WebBrowser1
    ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam) '全选
    ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam) '复制 
  end with
end function

但根本复制不了啊.... 请高人帮忙！！！