Dim WithEvents tim As New Timer
Dim rndm As New System.Random(1000)

tim.Enabled = true: tim.Interval = 100
'Initialisierung des RealTimeChart-Control
'10 Datenpunkte; Werte im Bereich 0,2 bis 0,8
ClsChartRealTime1.Init(10, 0.8, 0.2, True, , True)

Private Sub tim_Tick(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles tim.Tick
 
   If rndm.NextDouble > 0.8 Then
      'Das Control wird in unregelnäßigen Abständen mit einem 
      'neuen Wert gefüttert
      ClsChartRealTime1.AddDataPoint(rndm.NextDouble)
   End If
End Sub