how to change symbol (fill, color etc) on selected features only

Discussion created by rinat.solorzano on Jul 12, 2012
Latest reply on Jul 12, 2012 by rinat.solorzano
Hi everyone, i would like to know how to change the symbol properties on the selected features only, i want to fill it with linefillsymbol. Here's some code i've done but it doesnt work

Dim pFSel As IFeatureSelection
Set pFSel = pMap.Layer(0)

Dim pSelSet As ISelectionSet2
Dim pFeature As IFeature
Dim pFcursor As IFeatureCursor
Set pSelSet = pFSel.SelectionSet
pSelSet.Search Nothing, False, pFcursor
Set pFeature = pFcursor.NextFeature

Dim a As IFeatureRenderer
Dim pLSymbol As ILineFillSymbol
Set pLSymbol = New LineFillSymbol

Set a = pGFLayer.renderer
Set pLSymbol = a.SymbolByFeature(pFeature)

Dim pColor As IRgbColor
Set pColor = New RgbColor
pColor.RGB = RGB(255, 0, 0)
pLSymbol.color = pColor
pLSymbol.Separation = 7
pLSymbol.Angle = 70

'Dim padisplay As IDisplay
'Set padisplay = pMxDoc.ActiveView.ScreenDisplay
'padisplay.SetSymbol pLSymbol

'a.Draw pFcursor, esriDPSelection, padisplay, Nothing


thnks a lot!!