Public Class frm_grafico
    Dim Y_receita() As Double = {25000, 30000, 40000}

    Dim xPaises() As String = {"Janeiro", "Fevereiro", "Marco"}

    Private Sub frm_grafico_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Chart1.Series(0).Points.DataBindXY(xPaises, Y_receita)
    End Sub
End Class

  Public Class frm_grafico
    Dim Y_receita() As Double = {25000, 30000, 40000}
    Dim Y_Despesa() As Double = {5000, 5000, 7000}
    Dim xPaises() As String = {"Janeiro", "Fevereiro", "Marco"}

    Private Sub frm_grafico_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Chart1.Series(0).Points.DataBindXY(xPaises, Y_receita, Y_Despesa)
    End Sub
End Class

  
Imports System.Data.OleDb
Imports MySql.Data.MySqlClient

Public Class frm_rel_crp
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Chart1.Series.Add("Despesas")
        'Chart1.Series.Add("Vendas")

        Dim sql As String = ""

        Using con As MySqlConnection = GetConnection_MYSQL()
            Try
                con.Open()

                sql = "SELECT Mes, Valor FROM despesas"

                Dim cmd As MySqlCommand = New MySqlCommand(sql, con)
                Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable
                da.Fill(dt)

                Chart1.Series("Despesas").Points.AddXY(dt("Mes").ToString, dt("Valor").ToString)

            Catch ex As Exception
                MsgBox("Menssagem de erro:" &
                       ex.Message, MsgBoxStyle.Critical, "Atenção!")

            Finally
                con.Close()

            End Try
        End Using

    End Sub