关于 New Collection 类型数组和列表框的问题（急！）

dim k as new collection在任意函数里面,你希望改变它的值时使用
revalue new_Value,keyprivate sub ReValue(byval new_Value as long,byval Key as string)
on error Goto Handle:
    k.add new_Value,key
Handle:
    if err=? then
        k.remove key
        resume
    end if
end sub上面的 ? 是错误代码,是多少不记得了。
error 是集合中的关键字不唯一，或是
元素已经存在，大概意思就是这样子。