OLEOBJECT有BUG。。。

Question

Public WithEvents oletxt As MSForms.CommandButton
Public WithEvents dtpc As MSComCtl2.DTPickerPrivate Sub xl_WorkbookOpen(ByVal Wb As Excel.Workbook)
On Error Resume Next
xl.ActiveSheet.OLEObjects.Add ("MSComCtl2.DTPicker.2")
xl.ActiveSheet.OLEObjects.Add ("Forms.CommandButton.1")
Set dtpc = xl.ActiveSheet.OLEObjects("dtpicker1").object
Set oletxt = xl.ActiveSheet.OLEObjects("commandbutton1").object
end sub如题：这个是指定EXCEL的工作表控件。其中xl.ActiveSheet.OLEObjects.Add ("Forms.CommandButton.1")
指定是正确的，而，Set dtpc = xl.ActiveSheet.OLEObjects("dtpicker1").object 是不正确的。。
命名OLEOBJECTS("dtpicker1")的各种属性，如.NAME ，INDEX都是对的，这里却总是说我类型不正确。，到底错哪里呢？
OLEOBJECTS抽疯了还是咋的了、。。

Answer 1

不是抽疯，我明白了。MSComCtl2.DTPicker.2在xl.ActiveSheet.OLEObjects对象里面，他们根本不把他看到里面的一个属性，要msforms里面的空间才能识别。。
但是要怎么写才对呢。

Answer 2

有BUG的话告诉微软，他们会奖你一个免费的补丁，或者建议你下什么补丁