Private Sub GraphTest1(ByVal Zed As ZedGraphControl)
 
        Dim myPane1 As GraphPane = Zed.GraphPane
        Dim myPane2 As GraphPane = Zed.GraphPane
 
        Dim vList1 = New PointPairList()
        Dim vList2 = New PointPairList()
 
        Dim myCurve1 As LineItem
        Dim myCurve2 As LineItem
 
        Dim BarObj As BarItem
 
        Dim x As Double, y As Double
 
 
 
        'Nur Horizontal Zoomen oder Schieben können
        Zed.IsEnableVPan = False
        Zed.IsEnableVZoom = False
 
        'Beschriftungen setzen
        myPane1.Title.Text = "Mein erster Testgraph"
        myPane1.XAxis.Title.Text = "Zeit in Millisekunden"
        myPane1.YAxis.Title.Text = "Signalzustand"
 
        'Zufällige Werte in vListe1 einspielen
        For x = 0 To 96
            y = CInt(Rnd(1))
            vList1.Add(x, y)
        Next
 
        'Kurve erstellen
        myCurve1 = myPane1.AddCurve("Kurve 1", vList1, Color.Black, _
          SymbolType.None)
 
        'Kurve formatieren
        myCurve1.Line.IsAntiAlias = True
        myCurve1.Line.StepType = StepType.ForwardStep
 
        'DEBUG!!!
 
        'Zufällige Werte in vListe2 einspielen
        For x = 0 To 96
            y = CInt(Rnd(1))
            vList2.Add(x, y)
        Next
 
        '2. Kurve implementieren...
        'Public Function AddBar(ByVal label As String, ByVal points As 
        ' ZedGraph.IPointList, ByVal color As System.Drawing.Color) As 
        ' ZedGraph.BarItem
        'BarObj = Zed.GraphPane.AddBar("Neue GraphpaneBar", vList2, Color.Red)
 
 
 
        ''Kurve formatieren
        'myCurve2.Line.IsAntiAlias = True
        'myCurve2.Line.StepType = StepType.ForwardStep
        'myCurve2.IsY2Axis = True
 
 
        'Objekt aktualisieren
        Zed.AxisChange()
        Zed.Refresh()
 
    End Sub