set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
set oFacet = oCube.ActivePrimitive.Geometry.Facets(0)
set oSamples = oFacet.Samples
indexArray = oSamples.IndexArray
for i = lbound(indexArray) to ubound(indexArray)
        LogMessage "The index of this sample is: " & indexArray(i)
next