그래프

Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim table = New DataTable()
        table.Columns.Add("Sales Rep", GetType(String))
        table.Columns.Add("# of Sales", GetType(Integer))
        table.Columns.Add("Date", GetType(Date))

        table.Rows.Add("Anthony", 15, "2012 August 1")
        table.Rows.Add("Mark", 27, "2012 August 1")
        table.Rows.Add("David", 27, "2012 August 1")

        table.Rows.Add("Anthony", 17, "2012 August 2")
        table.Rows.Add("Mark", 30, "2012  August 2")
        table.Rows.Add("David", 14, "2012 August 2")

        table.Rows.Add("Anthony", 12, "2012 August 3")
        table.Rows.Add("Mark", 50, "2012  August 3")
        table.Rows.Add("David", 8, "2012 August 3")
        Chart1.Series.RemoveAt(0)
        Chart1.DataBindCrossTable(table.DefaultView, "Sales Rep", "Date", "# of Sales", "")

        For Each s In Chart1.Series
            s.ChartType = SeriesChartType.Line
        Next

    End Sub
End Class