编译错误

[Carlven2012]

Option Explicit
Private Type POINT
    X As Long
    Y As Long
End Type
Dim arr As Dictionary
Dim pt As POINT

Private Sub Form_Load()
    Set arr = New Dictionary
End Sub

Private 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 Sub

Private Sub Form_Unload(Cancel As Integer)
    Set arr = Nothing
End Sub

求支招，怎么解决这个问题。

[threenewbee]

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

[Carlven2012]

引用 1 楼 caozhy 的回复:

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

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

[舉杯邀明月]

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

[Tiger_Zhao]

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