属性标注

请问,如何在arcEngine开发中对某一个shape文件的字段属性进行标注?

<P>你看这个过程能行吗？</P><P>Public Sub LabelField(Player As IFeatureLayer)</P><P>   Dim pFLayer As IGeoFeatureLayer
   Set pFLayer = Player
  
   Dim pAnoLayPC As IAnnotateLayerPropertiesCollection
   Dim pAnnoLayerProps As ILabelEngineLayerProperties
    
   Set pAnoLayPC = pFLayer.AnnotationProperties
   pAnoLayPC.QueryItem 0, pAnnoLayerProps, Nothing, Nothing
    
   pAnnoLayerProps.Expression = "NAME"
    
   pFLayer.DisplayField = "NAME"
   pFLayer.DisplayAnnotation = True
End Sub
</P>