编译错误

Question

Option Explicit
Private Type POINT
    X As Long
    Y As Long
End Type
Dim arr As Dictionary
Dim pt As POINTPrivate Sub Form_Load()
    Set arr = New Dictionary
End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    pt.X = X
    pt.Y = Y
    arr.Add CStr(Now), pt
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Set arr = Nothing
End Sub求支招，怎么解决这个问题。 

Answer 1

POINT是VB关键字，修改为POINTAPI
pt.X = X
前面加上
Set pt = New POINTAPI

Answer 2

不是吧。我只是随便举的一个例子，意思是我其实是想添加自己定义的一个类型，但是不行。 你那个会出现错误： 无效使用New关键字！

Answer 3

把你的：　   arr.Add CStr(Now), pt
改成类似这样：
arr.Add CStr(Now), pt.X & "|" & pt.YDictionary对象的add方法，第二个参数不可以直接用“结构体”吧。

Answer 4

必须把结构POINT定义到tlb中（关键是有了公共的GUID），才可以作为Dictionary的成员。