If (cb_neraskop.Value = True) And (cb_raskop.Value = False) Then

         .Field = "Count_ne_issl"

       End If

         .MinDataValue = 1

         .MaxDataValue = 5

         .FlanneryCompensation = False

         .LegendSymbolCount = 5

         .ValueRepresentation = esriValueRepDistance

         .MinSymbol = pSMSym

         .BackgroundSymbol = pSFSym

         .CreateLegendSymbols

      End With

  'сопоставление пропорционального символа слою

       Set pLyr.Renderer = pPSR

  End If

  'Столбчатая диаграмма

  If ob_chart.Value = True Then

   Dim pDataStatistics As IDataStatistics

   Dim pTable As ITable

   Set pTable = pLyr

   Dim Column As String

   Dim pClr1 As IRgbColor

   Set pClr1 = New RgbColor

   pClr1.RGB = RGB(53, 52, 252)