Codenstuff.com

Public Sub GenerateChart()
        Dim CArea As ChartArea = Chart1.ChartAreas(0)
        CArea.BackColor = Color.Azure           '~~> Changing the Back Color of the Chart Area 
        CArea.ShadowColor = Color.Red           '~~> Changing the Shadow Color of the Chart Area 
        CArea.Area3DStyle.Enable3D = True       '~~> Changing the Chart Style to 3D 

        '~~> Formatting X Axis
        'CArea.AxisY.Interval = 0.2
        Chart1.Series("Series1").ChartType = SeriesChartType.Column
        '~~> Setting label's Fore Color
        Chart1.Series("Series1").LabelForeColor = Color.DarkGreen
        CArea.AxisY.LabelStyle.Format = FormatCurrency(0, 2)

        '~~> Display Data Labels
        Chart1.Series("Series1").IsValueShownAsLabel = True
        Chart1.Series("Series1").Font = New System.Drawing.Font("Verdana", 8)
        Chart1.Series("Series1")("LabelStyle") = "Top"

        Dim attributes As String = "Vendors.name,transactions.amount,groups.type"
        Dim fromClause As String = "LEFT JOIN Vendors ON transactions.vendor = Vendors.id LEFT JOIN Groups ON transactions.type = groups.id"

        Dim whereClause As String = "transactions.type ='1' AND transactions.setdate BETWEEN '2017-10-01' AND '2017-10-15'"

        Dim tblFields As SQLiteDataReader = DataBase.executeQuery("SELECT " & attributes & " FROM transactions " & fromClause & " WHERE " & whereClause & ";")

        While tblFields.Read
            '~~> SET DATA SOURCE <~~'
            Chart1.Series("Series1").Points.AddXY(tblFields.GetValue(0), FormatCurrency(tblFields.GetValue(1), 2))
        End While
        tblFields.Close()

    End Sub