Dim oColl		' object pointer for collection
Dim sSelList	' string list for selection
Dim oMember	' object pointer for members
Dim oNull		' object pointer for null object
Dim oCollItem	' object pointer for collection item
Dim sLightName	' string variable for the camera name 
' Create the new collection & populate it
Set oColl = CreateObject( "XSI.Collection" )
Set oNull = ActiveSceneRoot.AddNull	
oColl.SetAsText oNull & ",Light,Camera"
' Test contents & type
checkContents oColl
For Each oMember In oColl
	checkType oMember
Next
' Now remove some stuff
LogMessage "----------------"
checkType oNull				' = project item
oColl.Remove oNull
checkContents oColl
Set oCollItem = oColl.Item( "Camera" )
checkType oCollItem			' = collection item
oColl.Remove oCollItem
checkContents oColl
sLightName = "light"			
checkType sLightName			' = string expression
oColl.Remove sLightName
checkContents oColl
'--------------------------------------------------
function checkType( in_object )
	LogMessage in_object & " is a " & TypeName( in_object )
end function
'--------------------------------------------------
function checkContents( in_coll )
	If in_coll.Count > 0 Then
		LogMessage "Collection now contains " & in_coll.GetAsText 
		LogMessage "----------------"
	Else
		LogMessage "Collection is empty."
		LogMessage "----------------"
	End If
end function
'--------------------------------------------------
' Output of above script:
'INFO : "Collection now contains null,light,Camera"
'INFO : "----------------"
'INFO : "null is a Null"
'INFO : "light is a Light"
'INFO : "Camera is a Camera"
'INFO : "----------------"
'INFO : "null is a Null"
'INFO : "Collection now contains light,Camera"
'INFO : "----------------"
'INFO : "Camera is a Camera"
'INFO : "Collection now contains light"
'INFO : "----------------"
'INFO : "light is a String"
'INFO : "Collection is empty."
'INFO : "----------------"