Private Sub Form_Load()
 
Dim Liste!(), i&, N&, Position&
 
Randomize
N = 30
ReDim Liste(1 To N)
For i = 1 To N
  Liste(i) = Rnd / 10
Next i
 
Me.MousePointer = vbHourglass
With MSChart1
  .Repaint = False
  .chartType = VtChChartType2dLine ' Diagrammtyp
  .RowCount = N ' Zahl der Werte
  .ColumnCount = 2 ' Zahl der Linien
  .Column = 1
  For Position = 1 To .RowCount
    Column = 1
    .Row = Position
    .Data = Liste(Position)
    .Column = 2
    .Data = Liste(Position) + 30
  Next Position
  .Repaint = True
End With
Me.MousePointer = vbDefault
 
End Sub

----
GriZz