Dim oColl1            ' object pointer for first collection
Dim oColl2              ' object pointer for second collection
Dim aItems              ' array of items to add all at once
' Create the first collection & populate it 
Set oColl1 = CreateObject( "XSI.Collection" )
oColl1.SetAsText "Camera,Light"
checkContents oColl1
' Create the second collection & populate it 
LogMessage "----------------"
Set oColl2 = CreateObject( "XSI.Collection" )
oColl2.AddItems oColl1
' Since the Unique property hasn't been set to True, we can 
' add another instance of the camera to the collection
oColl2.Add "Camera"
checkContents oColl2
' Remove the light and one instance of the camera
LogMessage "----------------"
oColl2.RemoveItems oColl1
checkContents oColl2
'--------------------------------------------------
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 Camera,light"
'INFO : "----------------"
'INFO : "Collection now contains Camera,light,Camera"
'INFO : "----------------"
'INFO : "Collection now contains Camera"

/*
        This example demonstrates how to split a collection into 2
*/
NewScene( null, false );
// ----------------------------------------------------
// Create a collection & populate it
var oFolks = new ActiveXObject( "XSI.Collection" );
var oSammy = ActiveSceneRoot.AddNull( "Sammy" );
oFolks.Add( oSammy );
var oRoger = ActiveSceneRoot.AddNull( "Roger" );
oFolks.Add( oRoger );
var oBelinda = ActiveSceneRoot.AddNull( "Belinda" );
oFolks.Add( oBelinda );
var oAgnes = ActiveSceneRoot.AddNull( "Agnes" );
oFolks.Add( oAgnes );
// This will tell us that Sammy, Roger, Belinda, and Agnes
// are all members of the folks collection
checkContents( oFolks, "oFolks" );
Application.LogMessage( "----------------" );
// ----------------------------------------------------
// Remove Sammy and Roger and save the removed ones
// in another collection, leaving the original with the
// two women and the new collection with two men
var oMen = oFolks.RemoveItems( "Sammy,Roger" );
checkContents( oFolks, "oFolks" );
checkContents( oMen, "oMen" );
//--------------------------------------------------
function checkContents( in_coll, in_id )
{
        if ( in_coll.Count > 0 )
        {
                LogMessage( in_id + " collection contains: " + in_coll.GetAsText() );
        }
        else
        {
                Application.LogMessage( in_id + " collection is empty." );
        }
}
//--------------------------------------------------
// Output of above script:
//INFO : "oFolks collection contains: Sammy,Roger,Belinda,Agnes"
//INFO : "----------------"
//INFO : "oFolks collection contains: Belinda,Agnes"
//INFO : "oMen collection contains: Sammy,Roger"