Public Sub DrawReferenzLine(refwert As Double)
Dim mYAxis0 = Graph.Bottom + Scale(sY(0)).MinVal * Scale(sY(0)).Scale As Int
xcvsGraph.DrawLine(Graph.Left, mYAxis0 - refwert * Scale(sY(0)).Scale, Graph.Right, mYAxis0 - refwert * Scale(sY(0)).Scale, Colors.Red, 2dip)
xcvsGraph.Invalidate
End Sub