关于类和集合的问题

Question

Public allss     As New Collection 
Dim my As mycla '类模块
Set my = New mycla
..............省略
allss.add my
现在的问题是添加进去了，要读取my.id应该这么做呢谢谢，我以前是做java的，所以vb不是很懂

Answer 1

Dim vVar As Variant
Dim my1 as mycla
For Each vVar In cCol
    Set my1  = vVar
    ......
Next

Answer 2

my加入集合，不影响my读取类模块mycla的属性和方法：
如：my.id
   my.set 
   my.clear 

Answer 3

你应该这样写:
allss.item(0).id
其中allss.item(0)就是你加入的my,明白了吧！
如果allss中有很多项的话，可以参考1楼的代码（不过好像有点错误^-^）,或者
dim i as long,j as longi=allss.count
if i>0 then
   for j=0 to i-1
       allss.item(j).id=...'可以设置值
   next j
endif