'add a collection
Dim list1 As List
list1.Initialize
For i = 1 To 10
list1.Add("Item 1" & i)
list1.Add("Item 2" & i)
list1.Add("Item 3" & i)
list1.Add("Item 4" & i)
list1.Add("Item 5" & i)
list1.Add("Item 6" & i)
list1.Add("Item 7" & i)
kvsStart.kvs.Put("list1" & i, list1)
list1.clear
Next