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

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