Dim oColl		' object pointer for collection

Dim aItems		' array of items to add all at once

' Create the new collection & populate it using SetAsText

Set oColl = CreateObject( "XSI.Collection" )

oColl.SetAsText "Camera,Light"

checkContents oColl

' Clear it and add the items again using Add

oColl.RemoveAll

checkContents oColl

oColl.Add "light"

oColl.Add "camera"

checkContents oColl

' Clear it again and add the items using AddItems

oColl.RemoveAll

aItems = Array( "Camera", "Light" )

oColl.AddItems aItems 

checkContents oColl

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

function checkContents( in_coll )

	LogMessage "----------------"

	If in_coll.Count > 0 Then

		LogMessage "Collection now contains " & in_coll.GetAsText 

	Else

		LogMessage "Collection is empty."

	End If

end function

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

' Output of above script:

'INFO : "----------------"

'INFO : "Collection now contains Camera,light"

'INFO : "----------------"

'INFO : "Collection is empty."

'INFO : "----------------"

'INFO : "Collection now contains light,Camera"

'INFO : "----------------"

'INFO : "Collection now contains Camera,light"