为什么类型不匹配？

Question

Private mColPoint As Collection
Public Property Get Item(ByVal Index As Variant) As CPoint
    Set Item = mColPoint.Item(Index)
End Property
Public Function Add(DrawObject As CPoint) As CPoint   
    mColPoint.Add DrawObject, DrawObject.ID    '类型不匹配？？？？？？
    Set Add = DrawObject
End Function上面的代码是我定义的一个集合类ColPoint中的部分代码,ColPoint由类CPoint描述的对象组成，运行后为什么总提示我“类型不匹配”

Answer 1

add 方法中key是字符类型的
你试试
mColPoint.Add DrawObject, cstr(DrawObject.ID)

Answer 2

mColPoint.Add DrawObject, DrawObject.ID    改为
mColPoint.Add DrawObject, "r"&DrawObject.ID    key值必须为字符型