Public Sub AddCompositeGraphicsLayer()Dim pMxD As IMxDocumentSet pMxD = ThisDocumentDim pMap As IMapDim pCLayer As ICompositeGraphicsLayerSet pCLayer = pMxD.FocusMap.ActiveGraphicsLayerDim pGLayer As IGraphicsLayerSet pGLayer = pCLayer.AddLayer("TEST", Nothing)pMxD.AddLayer pGLayerEnd Sub