<script language="vbscript">
class MyCollection
public items()
public Count
public sub add(x)
if IsEmpty(items(Count)) then
items(Count)=x
else
Count=Count+1
redim Preserve items(Count)
items(Count)=x
end if
end sub
private sub class_initialize()
Count=0
redim items(Count)
end sub
end class
set C=new MyCollection
C.add 1
C.add 2
for each i in C.items
alert i
next
</script>