Dim i As Long
With Graph1
  ' autom. Neuzeichnen ausschalten
  .LockUpdate True
 
  ' alte Werte löschen
  .Clear
 
  ' Balken-Diagramm
  .GraphType = gLine
 
  ' Gitternetzlinien anzeigen
  .GridLines = 1
 
  .YAxisAutomatic = False
  .YAxisMaxD = .Maximum = 120
 
 
  ' Anzahl Werte festlegen
  .NumSets = 3
  .Count = Grid1.Rows 'oItem.CellText("zeile")
 
  ' Werte aus ListBox auslesen und anzeigen
  For i = 1 To .Count
    ' X-Achsenbeschriftung
 
    ' dazugehöriger Wert
    .CurSet = 1
    .Data(i).Value = Val(Grid1.Text(i, "untergr"))
 
    .CurSet = 2
    .Data(i).Value = Val(Grid1.Text(i, "obergr"))
 
    .CurSet = 3
    .Data(i).Value = Val(Grid1.Text(i, "wert"))
  Next i
 
  ' Überschrift
  .Caption = "Fxresult1"
  .HeaderFont.Size = 8
  .HeaderFont.Bold = True
 
  ' Fußzeile
  .Footer = "Stand: " & Format$(Now, "dd.mm.yy")
  .FooterFont.Size = 8
  .FooterFont.Bold = False
 
  ' Durchschnittswert anzeigen
  .ShowAverage = False
 
  ' autom. Neuzeichnen einschalten
  .LockUpdate False
 
  ' Graph anzeigen
  .Refresh
End With