NewScene ,False

CreateLayer , "MyLayerExample"

'The command creates a Layer Group

CreateLayerGroup , "Layers.MyLayerExample", "MyLayerGroup"

set CurrentScene = Application.ActiveProject2.ActiveScene

Logmessage CurrentScene.Layers.Count

For each oLayer in CurrentScene.Layers

	Logmessage oLayer.fullname

Next

CurrentScene.Layers(1).AddLayer CurrentScene.Layers(0)

Logmessage CurrentScene.Layers.Count

For each oLayer in CurrentScene.Layers

	Logmessage oLayer.fullname

Next

Output from above script

' INFO : 2

' INFO : Layers.Layer_Default

' INFO : Layers.MyLayerGroup

' INFO : 1

' INFO : Layers.MyLayerGroup