请大家看下面代码，关于专题图的，然后找一下错误，给予更正，谢谢

<P>Public Sub CreateChart()
Dim pFeatClass As IFeatureClass
Dim pFeatLayer As IFeatureLayer
Dim pGeoFeatLyr As IGeoFeatureLayer</P>
<P>Dim pBarChartSymbol As IBarChartSymbol, pFillSymbol As IFillSymbol
Dim pMarkerSymbol As IMarkerSymbol, pSymbolArray As ISymbolArray
Dim pChartSymbol As IChartSymbol, pChartRenderer As IChartRenderer
Dim pRendererFields As IRendererFields
Dim pUid As UID
For i = 0 To m_Map.LayerCount - 1
   If m_Map.Layer(i).name = "wsgw_aat" Then
      Set pFeatLayer = m_Map.Layer(i)
      Exit For
   End If
 Next
Set pFeatClass = pFeatLayer.FeatureClass
' Create a new bar chart symbol
Set pBarChartSymbol = New BarChartSymbol
' Set the width of each bar - units are points
pBarChartSymbol.Width = 6
'pBarChartSymbol.
 Set pUid = New UID
 pUid.Value = "esricore.BarChartPropertyPage"
Set pMarkerSymbol = pBarChartSymbol ' QI to marker symbol interface
Set pChartSymbol = pBarChartSymbol ' QI to chart symbol interface
pChartSymbol.MaxValue = 1000000 'MaxValue   This is the biggest value of all bars
pMarkerSymbol.Size = 30 ' This is the maximum height of the biggest bar
Set pSymbolArray = pBarChartSymbol
Set pFillSymbol = New SimpleFillSymbol
pFillSymbol.color.RGB = RGB(213, 212, 252) ' pastel green
pSymbolArray.AddSymbol pFillSymbol
Set pFillSymbol = New SimpleFillSymbol
pFillSymbol.color.RGB = RGB(193, 252, 179) ' pastel purple
pSymbolArray.AddSymbol pFillSymbol
Set pChartRenderer = New ChartRenderer ' Create a new chart renderer
' Set up the fields that comprise the components of a chart; a bar in
' a bar chart or a slice of a pie chart
Set pRendererFields = pChartRenderer
pRendererFields.AddField pFeatClass.Fields.Field(17).name
pRendererFields.AddField pFeatClass.Fields.Field(20).name
'pRendererFields.AddField "FEMALES"
' Set the chart symbol into the renderer. This could also be a stacked
' bar or pie chart
Set pChartRenderer.ChartSymbol = pBarChartSymbol
Set pFillSymbol = New SimpleFillSymbol
pFillSymbol.color.RGB = RGB(239, 228, 190)
Set pChartRenderer.BaseSymbol = pFillSymbol  '.BackgroundSymbol
' Disable so that charts appear in polygon centers
pChartRenderer.UseOverposter = False
pChartRenderer.CreateLegend ' Create the legend symbols
pChartRenderer.label = "Population by Gender"
Set pGeoFeatLyr = pFeatLayer
Set pGeoFeatLyr.Renderer = pChartRenderer
pGeoFeatLyr.RendererPropertyPageClassID = pUid</P>
<P>End Sub</P>

好难看滴说，在帮助里看看render等的帮助说明，不少啦，