Dim oColl                     ' object pointer for collection
Dim oMember                     ' for getting the first member
Dim oLight                      ' for getting the light
' Create the collection as an ActiveX object
Set oColl = CreateObject("XSI.Collection")
' Add some items to it 
oColl.Add "Camera"
oColl.Add "Light"
' Get a pointer to the first member of the collection
' (using the index as key)
Set oMember = oColl(0)
getInfo oMember
' Get a pointer to the light (using the name as key)
Set oLight = oColl( "Light" )
getInfo oLight
function getInfo( in_object )
        LogMessage in_object & " is a " & ClassName( in_object )
end function
'--------------------------------------------------
' Output of above script:
'INFO : "Camera is a Camera"
'INFO : "light is a Light"