wincc vba 如何复制对象

能用Document类的CopySelection方法吗？
在线等待高手回答。。。。
以下代码有误，请高手帮忙看一下：
Dim objActiveXContro1l As HMIActiveXControl
Set objActiveXControl1 = myDocument1.HMIObjects.AddActiveXControl("Wincc_Gauge", "XGAUGE.XGaugeCtrl.1")
Dim copyThis As HMIObject
Set copyThis = objActiveXControl1
With copyThis
.Selected = True
End With

Dim selectThis As HMISelectedObjects
Dim pasteThis As HMIObject
Set pasteThis = myDocument1.CopySelection()

运行时提示最后一句话代码错误