set oCube = ActiveSceneRoot.AddGeometry( "Cube", "MeshSurface" )
        set oGeometry = oCube.ActivePrimitive.Geometry
        set oVertices = oGeometry.Vertices
        set oNeighborPolygons = oVertices(0).NeighborPolygons(1)
        set oNeighbors = oNeighborPolygons.NeighborVertices( 1 )
        str = "Vertices neighbors of this PolygonFaceCollection are :"
        for each vertex in oNeighbors
                str = str & " " & vertex.index
        next
        logmessage str