Sub Combo
gChart.Initialize(ChartView, Me, "Chart", True)
gChart.AddOnlineCustomFontToChart = "Roboto:300"
gChart.ComboChartTitle = "MCFD versus DATE"
gChart.ComboChartTitleStyle("blue", "roboto", 20, False, True)
gChart.ComboChartLegend("right", "red", "verdana", 14, False, False)
gChart.ComboChartSetColumnLabel = "MCFD"
Private comboColorsList As List
Private comboSeriesColor As List
comboColorsList.Initialize
comboSeriesColor.Initialize
Dim lstMCFD As List
lstMCFD.Initialize
For i=0 To Cursor1.RowCount-1
Cursor1.Position=i
lstMCFD.Add(Cursor1.GetString("AVMCFD"))
Next
comboColorsList.AddAll(Array As String("red", "magenta"))
comboSeriesColor.AddAll(Array As String("#5C3292"))
gChart.ComboChartSetColumnValues("?????", lstMCFD) 'HERE IS THE PROBLEM
gChart.ComboChartOrientation = "horizontal"
gChart.ComboChartDefaultCurveType = "function"
gChart.ComboChartSetDefaultSeriesType = "line"
gChart.ComboChartCreateSeries("MCFD", "line", "function", True)
gChart.ComboChartCrosshair("both", "both")
gChart.ComboChartSetAxisTitlesPosition = "out"
gChart.ComboChartSetHorizontalAxisTitle("DATE", "magenta", "verdana", 14, False, True)
gChart.ComboChartSetVerticalAxisTitle("MCFD", "magenta", "verdana", 14, False, True)
gChart.ComboChartSeriesColor = comboSeriesColor
gChart.ShowComboChart
End Sub