Dim pnt As New PointF
                pnt = New PointF(0, Me.prBar.Height)
                Dim myBrush As New Drawing2D.LinearGradientBrush(New PointF(0, _
                  0), pnt, Color.Red, Color.Blue)
                Dim myBlend As New Drawing2D.ColorBlend(Value.Count - 1)
                myBlend.Colors = cls.ToArray ' Eine List(Of Colors) in deinem 
                ' Fall 3 Farben
                myBlend.Positions = PositionArray ' Eine List(Of Point) Die 
                ' Positionen der Farben(zwischen 0 und 1) bei 3 Farben 0 , 0.5 
                ' , 1
                myBrush.InterpolationColors = myBlend 'übernehmen
                g.FillRectangle(myBrush, New RectangleF(0, 0, ((m_Value - _
                  Minimum) / Maximum) * Me.Width, Me.Height))'Zeichnen(m_Value 
                ' ist der jetztige Stand, Minimum ist die kleinste grad anzahl, 
                ' maximum die höchste...