Dim aseries As New GrapeCity.Windows.SpreadSheet.Data.SpreadDataSeries()
aseries.Name = "1234"
aseries.Values.Add(2)
aseries.Values.Add(4)
aseries.Values.Add(3)
aseries.Values.Add(5)
aseries.Fill = Brushes.Red
aseries.ChartType = GrapeCity.Windows.SpreadSheet.Data.SpreadChartType.ColumnStacked
aseries.DataLabelSettings = New GrapeCity.Windows.SpreadSheet.Data.DataLabelSettings() With {.ShowPointValue = True, .ShowBubbleSize = True, .ShowXValue = True}
aseries.DataLabelStyle.Fill = Brushes.Green
Dim chart As New GrapeCity.Windows.SpreadSheet.Data.SpreadChart()
chart.DataSeries.Add(aseries)
chart.Name = "name1"
GcSpreadSheet1.ActiveSheet.Charts.Add(chart)