如何改变Feature的颜色

<P>我的每个层只有一个点，点用三维符号表示。如何取出这个符号并改变它的颜色啊？</P>

<P>      Dim pFeatLyr As IFeatureLayer<BR>      Dim pGeoFeatLyr As IGeoFeatureLayer<BR>    <BR>  'Determine what kind of item has been clicked on<BR>  TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex<BR>      </P>
<P>    Set pFeatLyr = pLayer</P>
<P>    Set pGeoFeatLyr = pFeatLyr</P>
<P><BR>    Dim pColor As IColor</P>
<P>    Dim pPtSymbol As IMarkerSymbol<BR></P>
<P>Set pSRenderer = pGeoFeatLyr.Renderer</P>
<P><BR>            Set pPtSymbol = pSRenderer.Symbol<BR>            pPtSymbol.Color = pColor<BR></P>

<P>不是，将整个feature的颜色都改了，不用管属性字段</P>

根据属性字段内容来渲染？