'VBScript example showing how the Material Property is a singleton 
set oRoot = application.activeproject.activescene.root
set oGroup = oRoot.addgroup()
set oMaterial = oGroup.AddMaterial("Phong")
if oMaterial.Singleton then
        logmessage "Only one material is allowed per object"
else
        logmessage "Multiple materials are allowed on an object"
end if
'Output of this script:
'INFO : "Only one material is allowed per object"

'VBScript example showing Singleton and Branch values properties of an object
newscene ,false
set oSphere = ActiveSceneRoot.AddGeometry( "Sphere","MeshSurface")
'There are already default properties on any X3DObject, and we can also 
'add another
oSphere.AddProperty "CustomProperty",, "MyCustomParam"
logmessage "Properties of " & oSphere
for each oProp in oSphere.Properties
        logmessage vbTab & oProp.Name & vbLf & _
                vbTab & vbTab & "Singleton: " & oProp.Singleton & vbLf & _
                vbTab & vbTab & "Branch: " & oProp.Branch
next
'Output of this script:
'INFO : "Property info on sphere"
'INFO : "       Kinematics
'               Singleton: False
'               Branch: False"
'INFO : "       Visibility
'               Singleton: True
'               Branch: False"
'INFO : "       Ambient Lighting
'               Singleton: True
'               Branch: True"
'INFO : "       Scene_Material
'               Singleton: True
'               Branch: True"
'INFO : "       Geometry Approximation
'               Singleton: True
'               Branch: True"
'INFO : "       Display
'               Singleton: True
'               Branch: True"
'INFO : "       MyCustomParam
'               Singleton: False
'               Branch: False"