I am having problem with Symbology....Right now am having fill symbology and I would like to change it to line fill symbology. Am beginner. Please help me...Here is the code.
Thanks for your help.

Dim pMxDocument As IMxDocument
Dim pMap As IMap



Dim pLayer As IFeatureLayer
Dim pfeatclass As IFeatureClass
Set pLayer = New FeatureLayer

Dim PWcFactory As IWorkspaceFactory
Set PWcFactory = New ShapefileWorkspaceFactory
Dim pcWorkspace As IFeatureWorkspace



Dim NwrID As String

For Each aFile In inFiles
'flname = inputDir & aFile.Name
flname = rootDir & aFile.Name
fname = aFile.Name
fname = UCase(fname)
lntype = Right(fname, 3)
Dim tmp() As String
Dim fnamenD As String
Dim ftmp() As String
thr = Mid(fname, 22, 2)
hr = Val(thr)
If (lntype = "SHP") Then
tmp() = Split(fname, "_", -1, 1)
ftmp() = Split(fname, ".", -1, 1)
fnamenD = ftmp(0)
NwrID = tmp(0)
'SamConverttoGDB fname, tdir
'***Create NWR split choose NwrQuerych
'NwrQueryCh NwrId, fname, tdir
cntr = 0
Do While cntr <> mxNId
If NwrID = nId(cntr) Then
Set pcWorkspace = PWcFactory.OpenFromFile(tdir, 0)
'MsgBox fname
Dim pLyr As IGeoFeatureLayer
Set pLayer = New FeatureLayer
Set pfeatclass = pcWorkspace.OpenFeatureClass(fname)
'Set player0 = MapControl1.AddShapeFile(cPath, "cnty.shp")
'Set pCntyLayer = MapControl1.AddShapeFile(cPath, "cnty.shp")
'Set pCntyLayer = player0
Set pLayer.FeatureClass = pfeatclass
Set pMxDocument = Application.Document

Set pMap = pMxDocument.FocusMap
pLayer.Name = fname
pMap.AddLayer pLayer
Set pLyr = pLayer
Dim pColor As IColor
Set pColor = New RgbColor
pColor.RGB = RGB(255, 190, 190)

'*****************Set the outline color

Dim pColorOutline As IColor
Set pColorOutline = New RgbColor
pColorOutline.RGB = RGB(255, 190, 190)

'******************Assign outline color and width
Dim pOutline As ILineSymbol
Set pOutline = New SimpleLineSymbol
pOutline.Color = pColorOutline
pOutline.Width = 0.1

'*******************Access SimpleFillSymbol object
Dim pFillSymbol As IFillSymbol
Set pFillSymbol = New SimpleFillSymbol

'*******************Access SimpleRenderer object, assign fill and outline properties
Dim pSimpleRenderer As ISimpleRenderer
Set pSimpleRenderer = New SimpleRenderer
Set pSimpleRenderer.Symbol = pFillSymbol
Set pLyr.Renderer = pSimpleRenderer
pFillSymbol.Color = pColor
pFillSymbol.Outline = pOutline

End If



cntr = cntr + 1

Loop

'PMxDoc.UpdateContents


End If


'UpdateDBF inputDir & aFile.Name, dbf
'count = count + 1
'Kill inputDir & aFile.Name
Next
pMxDocument.ActivatedView.Refresh
pMxDocument.UpdateContents
MsgBox "complete"


End Sub

Dim fname As String
Dim tmpName() As String
Dim cntr As Double
Set pWorkspace = pWorkFact.OpenFromFile("C:\NWR_GIS\Splat\Current_files", 0)
Dim pLyr As IGeoFeatureLayer
Dim pLayer As IFeatureLayer
Dim pfeatclass As IFeatureClass
Dim pColor As IColor
Dim tmp() As String
Dim flname As String
Dim pColorOutline As IColor
Dim pFillSymbol As IFillSymbol
Dim pOutline As ILineSymbol
Dim pSimpleRenderer As ISimpleRenderer

Dim ctab As Integer

ctab = 0

Do Until pDS Is Nothing
fname = pDS.Name
fname = UCase(fname)
tmp() = Split(fname, "_", -1, 1)
NwrID = tmp(0)
cntr = 0
flname = pDS.Name & ".shp"
Do While cntr <> mxNId

If NwrID = nId(cntr) Then

Set pfeatclass = pWorkspace.OpenFeatureClass(flname)
'Set player0 = MapControl1.AddShapeFile(cPath, "cnty.shp")
'Set pCntyLayer = MapControl1.AddShapeFile(cPath, "cnty.shp")
'Set pCntyLayer = player0
Set pLayer = New FeatureLayer
Set pLayer.FeatureClass = pfeatclass

Set pMxDocument = Application.Document
Set pMap = pMxDocument.FocusMap
pLayer.Name = fname
pMap.AddLayer pLayer
Set pLyr = pLayer

Set pColor = New RgbColor
pColor.RGB = RGB(255, 190, 190)

'*****************Set the outline color

'Dim pColorOutline As IColor
Set pColorOutline = New RgbColor
pColorOutline.RGB = RGB(255, 190, 190)

'******************Assign outline color and width
'Dim pOutline As ILineSymbol
Set pOutline = New SimpleLineSymbol
pOutline.Color = pColorOutline
pOutline.Width = 0.1

'*******************Access SimpleFillSymbol object
'Dim pFillSymbol As IFillSymbol
Set pFillSymbol = New SimpleFillSymbol

'*******************Access SimpleRenderer object, assign fill and outline properties
'Dim pSimpleRenderer As ISimpleRenderer
Set pSimpleRenderer = New SimpleRenderer
Set pSimpleRenderer.Symbol = pFillSymbol
Set pLyr.Renderer = pSimpleRenderer
pFillSymbol.Color = pColor
pFillSymbol.Outline = pOutline
pMxDocument.ActivatedView.Refresh
pMxDocument.UpdateContents


End If

cntr = cntr + 1
If cntr = 45 Then
'MsgBox cntr

End If

Loop

ctab = ctab + 1
Set pDS = pEnumDS.Next



Loop

pMxDocument.ActivatedView.Refresh
pMxDocument.UpdateContents
Exit Sub

EH:
If Err.Number = 91 Then
'If pDS = Nothing Then
Set pDS = Nothing
Exit Sub
'End If

Else

MsgBox Err.Description & " Error " & Err.Number

End If