Public Sub ReDraw(ByVal PointsToShow As Integer, ByVal _
      ymin As Double, ByVal ymax As Double,
                    Optional ByVal ShowPointMarker As Boolean = False)
 
        If Not _Initialized Then Exit Sub   'Kein Chart da > Exit
 
        If DataList.Count < PointsToShow Then   > Genügend Messpunkte vorhanden?
            MessageBox.Show("Zu wenig Datenpunkte verfügbar!", "Fehler")
            Exit Sub
        End If
 
        ymax = Math.Max(ymin + 0.0001, ymax)
 
        _maxpoints = PointsToShow : _starttime = Now.Ticks
        _showmarker = ShowPointMarker
 
        'Achsen einrichten
        With MyBase.ChartAreas(0)
            With .AxisX
                .CustomLabels.Clear()
                .MajorGrid.Enabled = False
                .MajorTickMark.TickMarkStyle = Charting.TickMarkStyle.AcrossAxis
                .MajorTickMark.Enabled = True
                .MajorTickMark.Size = 6
                .LabelAutoFitStyle = Charting.LabelAutoFitStyles.DecreaseFont
                .IntervalType = Charting.DateTimeIntervalType.Number
                .Interval = cTicksPerSecond
            End With
            .AxisY.Minimum = ymin : .AxisY.Maximum = ymax
        End With
 
        MyBase.Series.Clear() : MyBase.Legends.Clear()
        'Datenserie einrichten
        MyBase.Series.Add(cDataSeries)
        With MyBase.Series(cDataSeries)
            .ChartType = Charting.SeriesChartType.Line
            .BorderWidth = 2
        End With
        MyBase.Series.Add(cDataSeries2)
 
        With MyBase.Series(cDataSeries2)
            .ChartType = Charting.SeriesChartType.Line
            .BorderWidth = 2
        End With
 
        'Hier müsste ich dann die Daten in das Chart eintragen lassen. Aber wie 
        ' bekomme ich die aus der Datatable rausgelöst? 
 
        If Werte = 1 Then  'Nur eine Kurve?
            For i As Integer = 0 To PointsToShow  'Wieviel Werte?
                t = Zeitwert(i)   'Werte irgendwie aus Datatable holen
                v1 = y(-Wert(i))
                AddDataPoint(t, v1) 'Werte irgendwie ins Diagramm bekommen
            Next
        ElseIf Werte = 2 Then  'Zwei Kurven?
            For i As Integer = 0 To PointsToShow
                t = Zeitwert(i)
                v1 = y-Wert1(i))
                v2 = y - Wert2(i)
                AddDataPoint(t, v1, v2)
            Next
        End If
 
 
        _Initialized = True
    End Sub

Ahnungsloser ahnungsloser...