Private Sub DrawValue(Value As Float)
cvs.ClearRect(cvs.TargetRect) <<<<<<<<<<<< crashed here
If vertical Then
cvs.DrawLine(cvs.TargetRect.CenterX, 0, cvs.TargetRect.CenterX, cvs.TargetRect.Bottom, bcolor, thickness)
cvs.DrawLine(cvs.TargetRect.CenterX, 0, cvs.TargetRect.CenterX, Value / 100 * cvs.TargetRect.Bottom, pcolor, thickness)
Else
cvs.DrawLine(0, cvs.TargetRect.CenterY, cvs.TargetRect.Right, cvs.TargetRect.CenterY, bcolor, thickness)
cvs.DrawLine(0, cvs.TargetRect.CenterY, Value / 100 * cvs.TargetRect.Right, cvs.TargetRect.CenterY, pcolor, thickness)
End If
cvs.Invalidate
End Sub