With Graph1
' autom. Neuzeichnen ausschalten
  .LockUpdate True
 
  ' alte Werte löschen
  .Clear
 
  ' Linien-Diagramm
  .GraphType = gLine
 
  ' Gitternetzlinien anzeigen
  .GridLines = 0
 
  ' Anzahl Werte festlegen
  .NumSets = 1
  .Count = MSHFlexGrid2.Rows
 
  'Y-Achse skalieren
  .YAxisAutomatic = False
  .YAxisMax = 200
 
 
  ' Werte aus Flexgrid auslesen und anzeigen
  For i = 1 To .Count - 2
    ' X-Achsenbeschriftung
    ' dazugehöriger Wert
    .CurSet = 1
    .Data(i).Value = Val(MSHFlexGrid2.TextMatrix(i, 7))
 
'    .Data(i).Value = Val(MSHFlexGrid2.TextMatrix(i, 7))
'    .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 = "Radienauswertung"
  .HeaderFont.Size = 8
  .HeaderFont.Bold = True
 
  ' Fußzeile
  .Footer = "Messungen"
  .FooterFont.Size = 8
  .FooterFont.Bold = False
 
  ' Durchschnittswert anzeigen
  .ShowAverage = False
 
  ' autom. Neuzeichnen einschalten
  .LockUpdate False
 
  ' Graph anzeigen
  .Refresh
End With