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