[يونس علي]

تفظل الكود بعد التعديل 

كود :

 Private Sub CHart()
       If DataGridView1.RowCount <= 0 Then Return
       '//
       Chart1.Titles.Clear()
       '// Clear Legends & Series
       Chart1.Series.Clear()
       Chart1.Series.Add("Sample Chart")
       Chart1.Legends.Clear()
       '// Clear Points
       For Each xSeries In Chart1.Series
           xSeries.Points.Clear()
       Next
       '// Create Legends
       Dim Legend1 As Legend = New Legend()
       Legend1.Name = "Legend1"
       Chart1.Legends.Add(Legend1)
       '// Create Series
       Dim Series1 As Series = New Series()
       Dim Series2 As Series = New Series()
       Dim Series3 As Series = New Series()

       '// Add Series
       With Chart1
           .Series.Add(Series1)
           .Series.Add(Series2)
           .Series(0).Color = Color.Green
           .Series(1).Color = Color.Gray
           .Series(2).Color = Color.Gold
           '.Series.Add(Series3)
           '.Series.Add(Series4)
       End With
       '//
       Try
           Dim myFont As New Font("Tahoma", 14, FontStyle.Bold)
           Chart1.Titles.Add("Sample Chart")
           Chart1.Titles(0).Font = myFont
           '// Define Chart Type.
           For Each xSeries In Chart1.Series
               Select Case cmbChartType.Text
                   Case "Column"
                       xSeries.ChartType = SeriesChartType.Column
                   Case "Line"
                       xSeries.ChartType = SeriesChartType.Line
                   Case "Point"
                       xSeries.ChartType = SeriesChartType.Point
               End Select
               '// Show Legend
               If chkShowLegend.Checked Then
                   xSeries.IsVisibleInLegend = True
               Else
                   xSeries.IsVisibleInLegend = False
               End If
               '// View the value of a chart point on mouse over.
               xSeries.ToolTip = "#VAL{0.00}"
           Next
           '//
           With Chart1
               .Series(0).LegendText = "Value 1"
               .Series(1).LegendText = "Value 2"
               .Series(2).LegendText = "Value 3"
               '.Series(3).LegendText = "Average"
           End With
           '// Show all Axis Label
           Chart1.ChartAreas(0).AxisX.Interval = 1
           '//
           With Chart1.ChartAreas("ChartArea1")
               .AxisX.MajorGrid.LineWidth = 1
               .AxisY.MajorGrid.LineWidth = 1
           End With

           Me.Chart1.Series("Sample Chart").Points.AddXY(Label1.Text, Val(TextBox1.Text))
           Me.Chart1.Series("Sample Chart").Points.AddXY(Label2.Text, Val(TextBox2.Text))
           Me.Chart1.Series("Sample Chart").Points.AddXY(Label3.Text, Val(TextBox3.Text))

           Me.Chart1.Series("Sample Chart").Points(0).Color = Color.Green
           Me.Chart1.Series("Sample Chart").Points(1).Color = Color.Gray
           Me.Chart1.Series("Sample Chart").Points(2).Color = Color.Gold
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

والله يا اخ عيدروس عندي سؤال في المنتدى 

لحد الان مش لاقي اي جواب او تجواب 

على العموم اي مشكلة او استفسار انا في الخدمة على قدر استطاعتي

لاني مبتدئ