set oObject = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
set oPolygonMesh = oObject.ActivePrimitive.Geometry
set oEdge = oPolygonMesh.Edges(2)
set oVertices = oEdge.Vertices