Private Sub DrawValue(Value As Float)
Log("DrawValue, cvs.TargetView.Tag: " & cvs.TargetView.Tag) 'this is fine
Log("DrawValue, cvs.TargetRect.Width: " & cvs.TargetRect.Width) 'this is fine
cvs.ClearRect(cvs.TargetRect) '<<<<<< error here: java.lang.NullPointerException: null receiver
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