ptrWaveBox.Axes(1).Maximum = 1000
ptrWaveBox.Axes(2).Maximum = 20
ptrWaveBox.Axes(2).Minimum = 0
Dim fTemp(2000) As Single
For n = 0 To iPixel - 1
fTemp(n) = wave(n)
Next
ReDim wave(iPixel) As Single
For n = 0 To iPixel - 1
wave(n) = fTemp(n)
Next
wave(iPixel) = Rnd(10) * 10
iPixel = iPixel + 1
xFirst = 0
If (iPixel > ptrWaveBox.Axes(1).Maximum) Then
xFirst = ptrWaveBox.Axes(1).Maximum - iPixel + 1
End If
ptrWaveBox.Plots(1).PlotY wave, xFirst
ptrWaveBox.Plots(1).Visible = True