Public Class frmRealtimeChart
 
    Dim rtc As RealTimeChart_II
    Dim WithEvents dt As DataTable
    Dim WithEvents tim As New Timer With {.Enabled = True, .Interval = 500}
    Dim rndm As New Random(123456)
 
    Private Sub frmRealtimeChart_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        dt = New DataTable
        dt.Columns.Add("TimeStamp", GetType(Date))
        dt.Columns.Add("Channel1", GetType(Double))
        dt.Columns.Add("Channel2", GetType(Double))
        rtc = New RealTimeChart_II(dt, -100, 100, 10, _
        "Timestamp", "Channel1", "Channel2")
 
        rtc.Parent = Me : rtc.Dock = DockStyle.Fill
 
    End Sub
 
    Private Sub tim_Tick(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles tim.Tick
 
        If rndm.NextDouble > 0.6 Then
            If dt.Rows.Count Mod 10 = 0 Then
                With rtc
                    'Anzeigewerte ändern 
                    .MaxValue = 1.2 * .MaxValue : .MinValue = 1.2 * .MinValue
                    .MaxPoints += 4
                End With
            End If
            rtc.AddRow({Now, -100 + rndm.NextDouble * 200, -80 + _
              rndm.NextDouble * 160})
        End If
 
    End Sub
End Class