Try it !!!
Graphics3D 800,600 c = CreateCube() Print "surfaces: "+CountSurfaces(c) s = GetSurface(c,1) Print "vertex: "+CountVertices(s) WaitKey