集合的用法,该怎么处理

集合的用法
Private COLL As New Collection
Private vItem(5) As Object 
   
 vItem(ctCol1 - 1) = row("Col1")
 vItem(ctCol2 - 1) = Trim(row("Col2"))
 vItem(ctCol5 - 1) = Trim(row("Col5")) 'xiaoqiang add on Description in 29-10-09
 vItem(ctcol6 - 1) = Trim(row("Col6")) 'xiaoqiang add on Description in 19-Feb-10
COLL.Add(vItem, vItem(ctCol1 - 1))

以前在VB中是var =COLL.Item(iItemIndex + 1)，cmdILItem(iIndex).Tag = var(ctCol1 - 1)读取

在。NET中该怎么添加集合和读取呢？

------解决方案--------------------
vb.net里集合也是这样添加和读取啊
------解决方案--------------------
每次读取都一样，明显是iItemIndex 没变嘛
------解决方案--------------------
没放在循环里？
------解决方案--------------------
ctCol1 不是常量吗 。。 ctCol1 - 1 当然不会变
------解决方案--------------------
cmdILItem(iIndex).Tag = var(ctCol1 - 1) 这一步干吗又减 1
object 改成Variant
------解决方案--------------------
Private COLL As New Collection
Private vItem(5) As Object

redim vItem(5)'定义新数组，否则循环后的数据永远是最后一条。 
 vItem(ctCol1 - 1) = row("Col1")
 vItem(ctCol2 - 1) = Trim(row("Col2"))
 vItem(ctCol5 - 1) = Trim(row("Col5")) 'xiaoqiang add on Description in 29-10-09
 vItem(ctcol6 - 1) = Trim(row("Col6")) 'xiaoqiang add on Description in 19-Feb-10
COLL.Add(vItem, cstr(vItem(ctCol1 - 1)))'Key读取跟添加都强制转换为字符型