Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
' create a data table
Dim dt As New DataTable()
' add columns to the data table
dt.Columns.Add("Date", GetType(String))
dt.Columns.Add("Stock Price", GetType(Integer))
' add rows to the data table
dt.Rows.Add("Jan 1", 190)
dt.Rows.Add("Jan 8", 210)
dt.Rows.Add("Jan 15", 150)
dt.Rows.Add("Jan 22", 170)
dt.Rows.Add("Jan 29", 220)
dt.Rows.Add("Feb 5", 250)
dt.Rows.Add("Feb 12", 230)
dt.Rows.Add("Feb 26", 270)
' create a data series
Dim series1 As New C1.Win.Chart.Series()
' add the series to the Series collection of FinancialChart
FinancialChart1.Series.Add(series1)
' bind FinancialChart to the data table
FinancialChart1.DataSource = dt
' bind X-axis of FinancialChart
FinancialChart1.BindingX = "Date"
' bind Y-axis of FinancialChart
FinancialChart1.Binding = "Stock Price"
' set the chart type
FinancialChart1.ChartType = C1.Chart.Finance.FinancialChartType.Line
End Sub