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()
    Dim xChartArea1AxisXScaleViewZoomMax As Integer = 300
    'Création de deux séries de données 
    Dim Serie1 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
        Serie1.ChartArea = "ChartArea1"
        Serie2.ChartArea = "ChartArea1"

        'Ajout des series à la collection Series de Chart1
        Chart1.Series.Add(Serie1)
        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)
        xChartArea1AxisXScaleViewZoomMax = 300
        ChartArea1.AxisX.ScaleView.Zoom(0, xChartArea1AxisXScaleViewZoomMax)


        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
            Serie1.Points.AddXY(i, random.Next(0, 50))
        Next

        '
        Serie1.ChartType = SeriesChartType.FastLine
        Serie1.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 1000
            ChartArea1.AxisX.ScaleView.Scroll(i - xChartArea1AxisXScaleViewZoomMax)
            Serie2.Points.AddXY(i, (i + 1) / 5 + random.Next(0, 15))
            Chart1.Update()
        Next

    End Sub


End Class