set oRoot = Application.ActiveProject.ActiveScene.Root
oRoot.AddGeometry "Sphere", "MeshSurface"
oRoot.AddNull
for each oChild in oRoot.Children
        Application.LogMessage oChild.Name & ", " & oChild.Type
next
' Expected results:
'INFO : Camera_Root, CameraRoot
'INFO : light, light
'INFO : sphere, polymsh
'INFO : null, null

/*
        Compare this example with the similar example 
        for X3DObject.FindChildren
*/
// Create a sample scene
NewScene( null, false ) ;
var oRoot = Application.ActiveSceneRoot;
var oNull = oRoot.AddNull( "MyNull" ) ;
var oSphere = oRoot.AddGeometry( "Sphere", "MeshSurface", "MySphere" ) ;
var oNestedSphere = oNull.AddNull( "NestedNull" ) ;
var oConeInModel = oRoot.AddGeometry( "Cone", "NurbsSurface", "ConeInMdl" ) ;
var oModel = oRoot.AddModel(oConeInModel, "MyModel") ;
// The X3DObject.Children collection returns all X3DObjects 
// but it is not recursive.
PrintChildren( "Children of SceneRoot:", oRoot.Children ) ;
PrintChildren( "Children of Null:", oNull.Children ) ;
PrintChildren( "Children of Model:", oModel.Children ) ;
// Expected result:
//INFO : Children of SceneRoot:
//INFO :                Camera_Root
//INFO :                light
//INFO :                MyNull
//INFO :                MySphere
//INFO :                MyModel
//INFO : ----------------------------
//INFO : Children of Null:
//INFO :                NestedNull
//INFO : ----------------------------
//INFO : Children of Model:
//INFO :                MyModel.ConeInMdl
//INFO : ----------------------------
// Helper function showing the contents of a collection
function PrintChildren( in_msg, in_oChildren )
{
        Application.LogMessage( in_msg ) ;
        for ( var i=0 ; i<in_oChildren.Count; i++ ) {
                Application.LogMessage( "\t" + in_oChildren.Item(i).FullName ) ;
        }
        Application.LogMessage( "----------------------------" ) ;
}