将webbrowser中验证码拷贝到image中，438错误 对象不支持该属性

Dim vtag
Dim CtrlRange
For Each vtag In WebBrowser1.Document.All
If vtag.tagName = "IMG" Then
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (vtag)
CtrlRange.execCommand ("Copy")
Set Image1.Picture = Clipboard.GetData
End If
Next
------------------------------------------
执行上面的程序之后
CtrlRange.Add (vtag)
CtrlRange.execCommand ("Copy")
438错误 对象不支持该属性或方法。