' Given this hierarchy:
'
' cube
'   cube1
'     cube2
'     sphere
'     cone
'
' the following example will invoke SelectNeighborObj many times
' each time selecting a different part of the hierarchy.
NewScene
CreatePrim "Cube", "MeshSurface"
SetValue "cube.cube.length", 12
CreatePrim "Cube", "MeshSurface"
SetValue "cube1.cube.length", 10
CopyPaste "cube1", , "cube", 1
CreatePrim "Cube", "MeshSurface"
CopyPaste "cube2", , "cube1", 1
CreatePrim "Sphere", "MeshSurface"
CopyPaste "sphere", , "cube1", 1
CreatePrim "Cone", "MeshSurface"
CopyPaste "cone", , "cube1", 1
MsgBox "Let's now select the parent of cube2 (cube1)"
SelectNeighborObj "cube2"
MsgBox "Let's now select the first child of cube1 (cube2)"
SelectNeighborObj "cube1", 1
MsgBox "Let's now select the next sibling of sphere (cone)"
SelectNeighborObj "sphere", 3
MsgBox "Let's now add the parent of cube2 (cube1) to the selection"
SelectNeighborObj "cube2", , , True
MsgBox "Let's now select the parent of cube (scene root)"
SelectNeighborObj "cube"
MsgBox "Let's now go through all direct children of the scene root and log its name"
dim obj, first, child
' get first child (Camera_Root) of the scene root
SelectObj "Scene_Root"
set obj = GetValue( "SelectionList" )
SelectNeighborObj obj(0), 1
set first = GetValue( "SelectionList" )
' lets log the name of that first child
LogMessage "First child of " & obj(0) & " is " & first
' get sibling of that object (light)
SelectNeighborObj first, 3      ' get next sibling
set child = GetValue( "SelectionList" )
' log its name and get new sibling
' and loop until no more sibling 
do until child = first
        LogMessage "Next sibling is " & child
        SelectNeighborObj child, 3              ' get next sibling
        set child = GetValue( "SelectionList" )
loop 
' The log of the example above should be :
'INFO : "First child of Scene_Root is Camera_Root"
'INFO : "Next sibling is light"
'INFO : "Next sibling is cube"