สอบถามการทำลุป หรือ if ในการ วน ดาต้า สร้างกราฟ ตามรอบเวลา

 Private Sub Label3_TextChanged(sender As Object, e As EventArgs) Handles Sec.TextChanged

        TextBoxMulti.AppendText(sum.Text & Environment.NewLine)
        'Chart1.Series("Actual").Points.AddXY("", sum.Text)
        If Val(Sec.Text) = 15 Then
            Chart1.Series.Dispose()
            Chart1.Series.Clear()
            Sum1.Text = sum.Text
            Call PlotChart()
            'ต้องหาวิธีรวมตัวเลขเป็นชุดๆ ให้ต่อเนื่องเป็น [800][1500][2600].... เรียงไป เช่น อาร์เรย์ 
        End If
        If Val(Sec.Text) = 30 Then
            Chart1.Series.Dispose()
            Chart1.Series.Clear()
            Sum2.Text = sum.Text
            sum.Text = 0
            Call PlotChart()
        End If
        If Val(Sec.Text) = 45 Then
            Chart1.Series.Dispose()
            Chart1.Series.Clear()
            sum3.Text = sum.Text
            sum.Text = 0
            Call PlotChart()
        End If
        If Val(Sec.Text) = 59 Then
            Chart1.Series.Dispose()
            Chart1.Series.Clear()
            sum4.Text = sum.Text
            sum.Text = 0
            Call PlotChart()
        End If
        'If Val(Sec.Text) = 0 Then
        '    Chart1.Series.Dispose()
        '    Chart1.Series.Clear()
        '    sum4.Text = sum.Text
        '    sum.Text = 0
        '    Call PlotChart()
        'End If
    End Sub