'VBScript example

set oRoot = Application.ActiveProject.ActiveScene.Root

set oGrid = oRoot.AddGeometry("Grid","MeshSurface")

LogMessage typename(oGrid.Owners)

LogMessage "Object has owners : "

for each oOwner in oGrid.Owners

	LogMessage oOwner.Name

next