Dim oColl		' object pointer for collection

' Create the new collection & populate it

Set oColl = CreateObject( "XSI.Collection" )

oColl.SetAsText "Light,Camera"

' Test contents 

checkContents oColl

' Now clear (empty) the collection & re-test it

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

oColl.RemoveAll

checkContents oColl

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

function checkContents( in_coll )

	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 : "Collection now contains light,Camera"

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

'INFO : "Collection is empty."