Create Fill Symbol Function


Use this function to create a fill symbol. Fill symbols are used when rendering polygons.

How to use:
  1. Call this function in VBA optionally passing in color and style. The function returns an ISimpleFillSymbol.
Private Function CreateSimpleFillSymbol(Optional pColor, _
                                       Optional pOutLine, _
                                       Optional pStyle) As ISimpleFillSymbol
  Dim pSFS As ISimpleFillSymbol
  Set pSFS = New SimpleFillSymbol

  If Not IsMissing(pColor) Then
    pSFS.color = pColor
  End If

  If Not IsMissing(pStyle) Then = pStyle
  End If

  If Not IsMissing(pOutLine) Then
    pSFS.Outline = pOutLine
  End If

  Set CreateSimpleFillSymbol = pSFS
End Function