Converting labels to geodatabase annotation for a single layer

About converting labels to geodatabase annotation for a single layer

static void ConvertLabelsToGDBAnnotationSingleLayer(IMap pMap, int layerIndex, bool
    featureLinked)
{

    IConvertLabelsToAnnotation pConvertLabelsToAnnotation=new
        ConvertLabelsToAnnotationClass();
    ITrackCancel pTrackCancel=new CancelTrackerClass();
    //Change global level options for the conversion by sending in different parameters to the next line.
    pConvertLabelsToAnnotation.Initialize(pMap,
        esriAnnotationStorageType.esriDatabaseAnnotation,
        esriLabelWhichFeatures.esriAllFeatures, true, pTrackCancel, null);

    ILayer pLayer=pMap.get_Layer(layerIndex);
    IGeoFeatureLayer pGeoFeatureLayer=pLayer as IGeoFeatureLayer;
    if (pGeoFeatureLayer != null)
    {
        IFeatureClass pFeatureClass=pGeoFeatureLayer.FeatureClass;
        IDataset pDataset=pFeatureClass as IDataset;

        IFeatureWorkspace pFeatureWorkspace=pDataset.Workspace as
            IFeatureWorkspace;
        //Add the layer information to the converter object. Specify the parameters of the output annotation feature class here as well.
        pConvertLabelsToAnnotation.AddFeatureLayer(pGeoFeatureLayer,
            pGeoFeatureLayer.Name + "_Anno", pFeatureWorkspace,
            pFeatureClass.FeatureDataset, featureLinked, false, false, true, true, 
            "");

        //Do the conversion.
        pConvertLabelsToAnnotation.ConvertLabels();
        IEnumLayer pEnumLayer=pConvertLabelsToAnnotation.AnnoLayers;
        //Turn off labeling for the layer converted.
        pGeoFeatureLayer.DisplayAnnotation=false;

        //Add the result annotation layer to the map.
        pMap.AddLayers(pEnumLayer, true);

        //Refresh the map to update the display.
        IActiveView pActiveView=pMap as IActiveView;
        pActiveView.Refresh();
    }
}

Shared Sub ConvertLabelsToGDBAnnotationSingleLayer(ByVal pMap As IMap, ByVal layerIndex As Integer, ByVal featureLinked As Boolean)

Dim pConvertLabelsToAnnotation As IConvertLabelsToAnnotation=New ConvertLabelsToAnnotationClass()
Dim pTrackCancel As ITrackCancel=New CancelTrackerClass()
'Change global level options for the conversion by sending in different parameters to the next line.
pConvertLabelsToAnnotation.Initialize(pMap, esriAnnotationStorageType.esriDatabaseAnnotation, _
                                      esriLabelWhichFeatures.esriAllFeatures, True, pTrackCancel, Nothing)

Dim pLayer As ILayer=pMap.Layer(layerIndex)
Dim pGeoFeatureLayer As IGeoFeatureLayer=pLayer

If Not pGeoFeatureLayer Is Nothing Then
    Dim pFeatureClass As IFeatureClass=pGeoFeatureLayer.FeatureClass
    Dim pDataset As IDataset=pFeatureClass
    
    Dim pFeatureWorkspace As IFeatureWorkspace=pDataset.Workspace
    'Add the layer information to the converter object. Specify the parameters of the output annotation feature class here as well.
    pConvertLabelsToAnnotation.AddFeatureLayer(pGeoFeatureLayer, pGeoFeatureLayer.Name & "_Anno", _
                                               pFeatureWorkspace, pFeatureClass.FeatureDataset, _
                                               featureLinked, False, False, True, True, "")
    
    'Do the conversion.
    pConvertLabelsToAnnotation.ConvertLabels()
    
    Dim pEnumLayer As IEnumLayer=pConvertLabelsToAnnotation.AnnoLayers
    
    'Turn off labeling for the layer converted.
    pGeoFeatureLayer.DisplayAnnotation=False
    
    'Add the result annotation layer to the map.
    pMap.AddLayers(pEnumLayer, True)
    
    'Refresh the map to update the display.
    Dim pActiveView As IActiveView=pMap
    pActiveView.Refresh()
End If
End Sub