Option Explicit
Dim buffer(1 To 500) As Long
 
Private Sub Form_Load()
    Dim i As Long
 
 
    With Scope
        .TitleText = "Test Ausgabe"
        .chartType = VtChChartType2dLine
 
        With .DataGrid
            .ColumnCount = 1
            .RowCount = 500
 
            For i = 1 To 500
                buffer(i) = Rnd * 100
                .SetData i, 1, buffer(i), False
                If (i Mod 100) = 0 Then
                    .RowLabel(i, 1) = i
                Else
                    .RowLabel(i, 1) = ""
                End If
            Next i
 
        End With
        'Es wird eingestellt, dass die Beschriftung unter dem Datenpunkt steht
        .Plot.Axis(VtChAxisIdX).CategoryScale.Auto = False
        'Labels werden auf den x-Achse Werten dargestellt
        .Plot.Axis(VtChAxisIdX).CategoryScale.LabelTick = True
        .Plot.Axis(VtChAxisIdX).CategoryScale.DivisionsPerTick = 100
    End With
End Sub
 
Private Sub Timer1_Timer()
    Dim i As Long
 
    For i = 1 To 499
        buffer(i) = buffer(i + 1)
    Next i
    buffer(500) = Rnd * 100
 
    With Scope
        With .DataGrid
            For i = 1 To 499
                .SetData i, 1, buffer(i), False
            Next i
        End With
    End With
End Sub