' 系列を作成します
Dim series1 As New C1.Win.Chart.Series()
Dim series2 As New C1.Win.Chart.Series()
Dim series3 As New C1.Win.Chart.Series()
' 系列を追加します
FlexChart1.Series.Add(series1)
FlexChart1.Series.Add(series2)
FlexChart1.Series.Add(series3)
' 系列の名前を指定します
series1.Name = "収入"
series2.Name = "家賃"
series3.Name = "消費"
' データテーブルを作成します
Dim dt As New DataTable()
' データテーブルに列を追加します
dt.Columns.Add("Age Group", GetType(Integer))
dt.Columns.Add("Expenditure", GetType(Integer))
' データテーブルに行を追加します
dt.Rows.Add(31, 7000)
dt.Rows.Add(32, 8000)
dt.Rows.Add(33, 7500)
dt.Rows.Add(34, 9000)
dt.Rows.Add(35, 9500)
dt.Rows.Add(36, 11000)
dt.Rows.Add(37, 10000)
dt.Rows.Add(38, 10500)
dt.Rows.Add(39, 12000)
dt.Rows.Add(40, 11500)
' 最初の2つの系列にデータを追加します
series1.SetData(New Double() {31, 32, 33, 34, 35, 36, _
37, 38, 39, 40}, New Double() {24000, 24500, 25000, 26000, 27000, 28000, _
35000, 35000, 37000, 40000})
series2.SetData(New Double() {31, 32, 33, 34, 35, 36, _
37, 38, 39, 40}, New Double() {5500, 5700, 5750, 5000, 5200, 8000, _
8500, 9500, 6000, 12000})
' 第三の系列のデータソースとしてdtを設定します
series3.DataSource = dt
' 第三系列のX軸およびY軸を結合します
series3.Binding = "Expenditure"
series3.BindingX = "Age Group"