'VBScript example demonstrating Property.Branch 

set oRoot = application.activeproject.activescene.root

set oCube = oRoot.AddGeometry("Cube","MeshSurface")

'When you add a property you can decide whether it should be

'applied to the branch or not: 

branchFlag = false

oCube.AddProperty "CustomProperty", branchFlag, "NoBranchPSet"

branchFlag = true

oCube.AddProperty "CustomProperty", branchFlag, "BranchPSet"

logmessage "NoBranchPSet Branch Flag: " & _

		oCube.Properties.Item("NoBranchPSet").Branch

logmessage "BranchPSet Branch Flag: " & _

		oCube.Properties.Item("BranchPSet").Branch

'Output of the script:

'INFO : "NoBranchPSet Branch Flag: False"

'INFO : "BranchPSet Branch Flag: True"