Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
' データテーブルを作成します
Dim dt As New DataTable()
' データテーブルに列を追加します
dt.Columns.Add("Date", GetType(String))
dt.Columns.Add("Stock Price", GetType(Integer))
' データテーブルに行を追加します
dt.Rows.Add("1月 1日", 190)
dt.Rows.Add("1月 8日", 210)
dt.Rows.Add("1月 15日", 150)
dt.Rows.Add("1月 22日", 170)
dt.Rows.Add("1月 29日", 220)
dt.Rows.Add("2月 5日", 250)
dt.Rows.Add("2月 12日", 230)
dt.Rows.Add("2月 26日", 270)
' データ系列を作成します
Dim series1 As New C1.Win.Chart.Series()
' 系列をFinancialChartの系列コレクションに追加します
FinancialChart1.Series.Add(series1)
' FinancialChartをデータテーブルに連結します
FinancialChart1.DataSource = dt
' FinancialChartのX軸を連結します
FinancialChart1.BindingX = "Date"
' FinancialChartのY軸を連結します
FinancialChart1.Binding = "Stock Price"
' チャートタイプを設定します
FinancialChart1.ChartType = C1.Chart.Finance.FinancialChartType.Line
End Sub