Sub DrawCurves
Dim i As Int
Dim SrcRec, DestRec As Rect
SrcRec.Initialize(GridX0 + dx*2dip, GridY0, GridX1, GridY1) ' here for visibility, move out,
DestRec.Initialize(GridX0, GridY0, GridX1 - dx*2dip, GridY1)' for efficiency, do once
cvsGraph.DrawBitmap(cvsGraph.Bitmap,SrcRec,DestRec)
For i = 0 To CurvesNb
If Curve(i).Draw = True Then
y2(i) = GridYm + (-Curve(i).Offset - CurveVal(i, ii)) * Curve(i).Scale
cvsGraph.DrawLine(GridX1 - dx*2dip, y1(i),GridX1, y2(i), Curve(i).Color, 2dip)
cvsGraph.DrawLine(GridX1 - dx*2dip, y0(i),GridX1, y1(i), Colors.Black, 2dip) ' erase old w/ black
y0(i) = y1(i) ' save for erase later
y1(i) = y2(i) ' save for start point next curve
End If
Next
pnlGraph.Invalidate
DoEvents
End Sub