NewScene , false
set Scene = Application.ActiveProject.ActiveScene
set MatLib = Scene.ActiveMaterialLibrary
set MyMaterial = MatLib.CreateMaterial( "Phong", "MyPhong" )
set SceneRoot = Scene.Root
set MyGrid = SceneRoot.AddGeometry("Grid","MeshSurface")
set MySphere = SceneRoot.AddGeometry("Sphere","MeshSurface")
SIAssignMaterial MyGrid, MyMaterial 
SIAssignMaterial MySphere, MyMaterial 
Application.LogMessage "Object is Used by : "
for each oOwner in MyMaterial.UsedBy
Application.LogMessage oOwner.Name
next
' This example should log something like:
' INFO : Object is Used by : 
' INFO : grid
' INFO : sphere