[1nj]

انا عملت تجربه باضافه chart

كود :

Dim query = DataGridView1.Rows.Cast(Of DataGridViewRow).GroupBy(Function(x) x.Cells(6).Value.ToString).ToDictionary(Function(x) x.Key, Function(y) y.Count())
Me.Chart1.DataSource = query
Chart1.Series(0).Points.DataBindXY(query.Keys, query.Values)
Chart1.Series(0).IsValueShownAsLabel = True

وكانت النتيجه