set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
set oFacet  = oCube.ActivePrimitive.Geometry.Facets(2)
set oSubComponent = oFacet.Samples.SubComponent
SelectObj oSubComponent