NewScene , false
set oObject = Application.ActiveSceneRoot.AddGeometry("Cube","MeshSurface","MyCube")
set oSubComponent = oObject.ActivePrimitive.Geometry.CreateSubComponent(siVertexCluster, Array(3,4,5))
set oCluster = oSubComponent.CreateCluster()
if oCluster.Type = oSubComponent.ClusterType then
                Application.LogMessage "Same cluster type (" & oSubComponent.ClusterType & ")"
end if
' Expected results:
'INFO : Same cluster type (pnt)