Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1

    Dim random As New Random()
    'Création Chart
    Dim Chart1 As New Chart
    'Création ChartArea1 (zone graphique)
    Dim ChartArea1 As New ChartArea()
    'Création de deux séries de données 
    Dim series1 As New Series()
    Dim Serie2 As New Series()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        ' Ajouter le  Chart Area à la Collection ChartAreas du  Chart
        Chart1.ChartAreas.Add(ChartArea1)


        'Affichage des séries sur ChartArea1
        series1.ChartArea = "ChartArea1"
        Serie2.ChartArea = "ChartArea1"

        'Ajout des series à la collection Series de Chart1
        Chart1.Series.Add(series1)
        Chart1.Series.Add(Serie2)

        'Paramétrage de l'affichage 
        Chart1.Location = New System.Drawing.Point(15, 45)
        Chart1.Size = New System.Drawing.Size(750, 500)

        ChartArea1.AxisY.ScaleView.Zoom(0, 200)
        ChartArea1.AxisX.ScaleView.Zoom(0, 300)

        ChartArea1.AxisX.ScaleView.Zoomable = True
        ChartArea1.AxisX.ScrollBar.IsPositionedInside = False
        ChartArea1.AxisY.ScaleView.Zoomable = True
        ChartArea1.AxisY.ScrollBar.IsPositionedInside = True


        'Ajout à Form1
        Me.Controls.Add(Chart1)

        'Peuplement serie1

        For i = 0 To 150
            Serie2.Points.AddXY(i, random.Next(0, 50))
        Next

        '
        series1.ChartType = SeriesChartType.FastLine
        series1.BorderWidth = 2


        Chart1.Show()


    End Sub

    Private Sub peuplementSerie2() Handles Me.Shown

        'Mise à jour de Form1 avec peuplement par serie2

        Serie2.ChartType = SeriesChartType.Spline
        Serie2.BorderWidth = 2

        Dim i As Integer = 0
        For i = 0 To 499

            series1.Points.AddXY(i, (i + 1) / 5 + random.Next(0, 15))
            Chart1.Update()

        Next
    End Sub


End Class