NewScene , false

set oRoot = Application.ActiveProject.ActiveScene.Root

set oSphere = oRoot.AddGeometry( "Sphere", "NurbsSurface" )

set oCube = oRoot.AddGeometry( "Cube", "NurbsSurface" )

for each oChild in oRoot.Children

	Application.LogMessage oChild.Name

next

Application.LogMessage "Remove"

oSphere.RemoveFromParent

for each oChild in oRoot.Children

	Application.LogMessage oChild.Name

next

' Expected results:

'INFO : Camera_Root

'INFO : light

'INFO : sphere

'INFO : cube

'INFO : Remove

'INFO : Camera_Root

'INFO : light

'INFO : cube

'INFO : sphere