访问类的成员变量的问题

Question

我的类模块class1有个成员变量
 public listCount as integer
另外我有个普通的模块 
public sub setCount()
  dim a as new class1
  a.listCount=5
end sub
可是当我在 class1 类模块的一个过程里这样写的时候
private sub check()
 call setCount() 
 msgbox listCount
 ' 确发现这个listCount还是等于０啊，我想这个时候应该是5了吧,我的目的是想它现在变成5啊
end sub

Answer 1

msgbox listCount 
-->
MsgBox a.listCount

Answer 2

setCount 中的 a 是一个仅在函数中有效局部变量，该对象的生命周期仅在函数调用周期内，应该改成：
public sub setCount(byval a as class1) 
  a.listCount=5 
end sub private sub check() 
 call setCount(me)  
 msgbox listCount 
end sub

Answer 3

dim a as new class1 
这个应该定义在过程外面,否则每次新建class1时,都会被重置