Dim oColl				' object pointer for collection

Dim i				' counter to use in the loop

' Create the collection as an ActiveX object

Set oColl = CreateObject("XSI.Collection")

' Add some items to it 

oColl.Add "Camera"

oColl.Add "Light"

' Use the number of items to loop through the collection

' (use Count - 1 because the index starts at 0, not one)

For i = 0 to oColl.Count - 1

	LogMessage "Hi! My name is " & oColl(i).Name & _

		" and I am at index " & i & " in the collection."

Next

'--------------------------------------------------

' Output of above script:

'INFO : "Hi! My name is Camera and I am at index 0 in the collection."

'INFO : "Hi! My name is light and I am at index 1 in the collection."