[SOLUCIONADO] Gráficos

[robertocarrillo]

Hola a tod@s, espero esten bien.
Tengo muchas dudas acerca del trabajo con charts.
La idea es que : Tengo una consulta, con la cual armo una tabla a través de un boton. Y quisiera que los datos de esa consulta fueran los parámetros de mi chart (supongamos que la consulta sería esta).

Código vb:

Dim TablaDatos As DataTable
        Dim _adaptador As New MySqlDataAdapter
        Dim cm As String
 
        cm = "SELECT detalle AS INFRACCION, mes AS MES, anio AS ANIO, SUM(cantidad) AS CANTIDAD FROM datos WHERE anio = '" + TxtAnio.Text + "'"
        Try
            conexion()
            _adaptador = New MySqlDataAdapter(cm, _conexion)
 
            TablaDatos = New DataTable
            _adaptador.Fill(TablaDatos)
            Dim ds As New DataSet
            If TablaDatos.Rows.Count > 1 Then
                Dim row As DataRow = TablaDatos.Rows(0)
                'chart1.xxx.Text = Convert.ToString(row("INFRACCION"))
                'chart1.xxx.Text = Convert.ToInt32(row("MES"))
                'chart1.xxx.Text = Convert.ToInt32(row("ANIO"))
                'chart1.xxx.Text = Convert.ToInt32(row("CANTIDAD"))
            End If
        Catch ex As Exception
        End Try
    End Sub
 

Aguien me podría ayudar con los nombres de los parámetros para poder indicar los nombres de las infracciones en la parte de abajo y las cantidades al costado. Por ejemplo.
Desde ya muchas gracias por la constante ayuda!!!

[robertocarrillo]

Ya esta mis amigos, acá dejo el ejemplo por si a alguien le interesa.

Código vb:

Dim ChartArea1 As ChartArea = New ChartArea()
                Dim Legend1 As Legend = New Legend()
                Dim Series1 As Series = New Series()
                Dim Chart1 = New Chart()
                Me.Controls.Add(Chart1)
 
                ChartArea1.Name = "ChartArea1"
                Chart1.ChartAreas.Add(ChartArea1)
                Legend1.Name = "Legend1"
                Chart1.Legends.Add(Legend1)
                Chart1.Location = New System.Drawing.Point(10, 110)
                Chart1.Name = "Chart1"
                Series1.ChartArea = "ChartArea1"
                Series1.Legend = "Legend1"
                Series1.Name = "Series1"
                Chart1.Series.Add(Series1)
                Chart1.Size = New System.Drawing.Size(1000, 550)
                Chart1.TabIndex = 0
                Chart1.Text = "Chart1"
 
                Chart1.Series("Series1").XValueMember = "INFRACCION"
                Chart1.Series("Series1").YValueMembers = "CANTIDAD"
 
                Chart1.DataSource = TablaDatos
 

Taluego