Dim oLayer, oGroup
' Create two nulls 
GetPrim "Null"
GetPrim "Null"
' Add them to a new group
Set oGroup = CreateGroup( "NullsGroup", "null*" )
' Move the group to a new layer and make it the current layer
CreateLayer , "LayerNulls", oGroup, oLayer 
SetCurrentLayer oLayer

' Get initial settings
checkCurrLayer
' Make a new layer (it is *not* automatically set as current)
SICreateLayer , "LayerA",oLayer
checkCurrLayer
' Now explicitly set the new layer as current and check again
SetCurrentLayer oLayer
checkCurrLayer
' Make another new layer (it *is* automatically set as current)
CreateLayer , "LayerB",,oLayer
SetCurrentLayer oLayer
checkCurrLayer
function checkCurrLayer()
        ' What is the current layer?
        GetCurrentLayer oCurrLayer
        LogMessage "Current layer is....." & oCurrLayer
end function
'OUTPUT OF ABOVE SCRIPT IS:
'INFO : "Current layer is.....Layers.Layer_Default"
'INFO : "Current layer is.....Layers.Layer_Default"
'INFO : "Current layer is.....Layers.LayerA"
'INFO : "Current layer is.....Layers.LayerB"