set oRoot = Application.ActiveProject.ActiveScene.Root

set oGroup = oRoot.AddGroup

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

oGroup.AddMember oCube

for each oMember in oGroup.Members

	LogMessage oMember.Name & " is a member of the " & oGroup.Name

next