グループ レイヤー内の移動

Dim pMxDocument As IMxDocument
Set pMxDocument = Application.Document
 
Dim pMap As IMap
Set pMap = pMxDocument.FocusMap
 
Dim pCompositeLayer As ICompositeLayer
Set pCompositeLayer = pMap.Layer(0)
 
Dim pMapLayer As IMapLayers
Set pMapLayer = pMap
 
pMapLayer.MoveLayerEx pCompositeLayer, pCompositeLayer, pCompositeLayer.Layer(0), 2
 
pMxDocument.UpdateContents