''' <summary>
    ''' Mischt zwei Farben.
    ''' Verfahren: Die R/G/B Anteile werden addiert
    ''' Eine Mischung von Rot / GRUEN ergibt gemaess RBG Modell somit GELB.
    ''' </summary>
    ''' <param name="c1">Erste Farbe</param>
    ''' <param name="op1">0 bis 1 Anteil von jeweils R/G/B welcher von c1 
    ' zur Mischung verwendet wird</param>
    ''' <param name="c2">Zweite Farbe</param>
    ''' <param name="op2">0 bis 1 Anteil von jeweils R/G/B welcher von c2 
    ' zur Mischung verwendet wird</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Overloads Shared Function GetBlendColor _
                       (ByVal c1 As Color, ByVal op1 As Single _
                      , ByVal c2 As Color, ByVal op2 As Single) As Color
 
        Return Color.FromArgb _
                (CInt(Math.Min(c1.R * op1 + c2.R * op2, 255)), _
                 CInt(Math.Min(c1.G * op1 + c2.G * op2, 255)), _
                 CInt(Math.Min(c1.B * op1 + c2.B * op2, 255)))
 
    End Function