[alma2]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        chart1.Series.Clear()
        chart1.Series.Add("الأعمار")
        chart1.Series("الأعمار").Color = Color.Green

        For Each r As DataRow In dt.Rows
            chart1.Series("الأعمار").Points.AddXY(r("Name"), r("Age"))
        Next

    End Sub