请各位大神支持为什么每次定义ITEM都需要重置类模块

jccg15160

类模块 名称 classname
内容 public name
Sub 自定义集合()
Dim zdyjh As New Collection '自定义一个集合
Dim obj As classname '定义一个对象
Dim num As Integer '定义一个计数器
Set obj = New classname '对一个变量赋值，
obj.name = "杨过"
zdyjh.Add Item:=obj, Key:="first"   
obj.name = "郭靖"
zdyjh.Add Item:=obj, Key:="second"
Set obj = New classname ’为什么这里需要重新设置类模块，不设置类模块则会改变上一个item的值，重新设置后则不会改变？，如这个例子前面两个自定义集合名称是“郭靖”，而不是“杨过”，“郭靖”？
obj.name = "黄蓉"
zdyjh.Add Item:=obj, Key:="third"
For i = 1 To 2
  Debug.Print
Next
  '输出现有集合中的元素
Debug.Print zdyjh(1).name
end sub