Set pDataStatistics = New DataStatistics

   Set pDataStatistics.Cursor = pCursor

   pDataStatistics.Field = "Count_issl"

   Dim pStatisticsResult As IStatisticsResults

   'Сбор статистики

   Set pStatisticsResult = pDataStatistics.Statistics

  'Создание маркера для использования с заливкой

    Dim pBarChartSymbol As IBarChartSymbol, pFillSymbol As IFillSymbol

    Dim pMarkerSymbol As IMarkerSymbol, pSymbolArray As ISymbolArray

    Dim pChartSymbol As IChartSymbol, pChartRenderer As IChartRenderer

    Dim pRendererFields As IRendererFields

  ' Создание нового маркера

    Set pBarChartSymbol = New BarChartSymbol

  'Установка ширины столбца  - состоит из точек

     pBarChartSymbol.Width = 10

    Set pMarkerSymbol = pBarChartSymbol ' QI для маркера

    Set pChartSymbol = pBarChartSymbol  ' QI для интерфейса диаграммы

     pChartSymbol.MaxValue = pStatisticsResult.Maximum ' максимальная высота всех маркеров

     pMarkerSymbol.Size = 30 ' максимальная высота, самого большого столбца

    Set pSymbolArray = pBarChartSymbol

    Set pFillSymbol = New SimpleFillSymbol

     pFillSymbol.Color = pClr1

     pSymbolArray.AddSymbol pFillSymbol

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