''' <summary>
        ''' Erstellt eine neue SerialColor über die Angabe von ARGB)
        ''' </summary>
        ''' <param name="A">Alphakomponente</param>
        ''' <param name="R">Rotanteil</param>
        ''' <param name="G">Grünanteil</param>
        ''' <param name="B">Blauanteil</param>
        ''' <remarks></remarks>
        Public Sub New(ByVal A As Byte, ByVal R As Byte, ByVal G As Byte, ByVal _
          B As Byte)
            _A = A
            _R = R
            _G = G
            _B = B
            SetRGB2HSV()
        End Sub
 
        ''' <summary>
        ''' Erstellt eine neue SerialColor über die Angabe von RGB)
        ''' </summary>
        ''' <param name="R">Rotanteil</param>
        ''' <param name="G">Grünanteil</param>
        ''' <param name="B">Blauanteil</param>
        ''' <remarks>
        ''' Der Alpha wert wird auf 255 gesetzt 
        ''' (Keine Transparenz)
        ''' </remarks>
        Public Sub New(ByVal R As Integer, ByVal G As Integer, ByVal B As _
          Integer)
            _A = 255
            _R = R
            _G = G
            _B = B
            SetRGB2HSV()
        End Sub
 
        ''' <summary>
        ''' Erstellt eine neue SerialColor über die Angabe von HSV
        ''' </summary>
        ''' <param name="H">Farbwinkel (0-360°)</param>
        ''' <param name="S">Sättigung (0-100%)</param>
        ''' <param name="V">Hälligkeit (0-100%)</param>
        ''' <remarks></remarks>
        Public Sub New(ByVal H As Double, ByVal S As Double, ByVal V As Double)
            _A = 255
            _H = H
            _S = S
            _V = V
            SetHSV2RGB()
        End Sub

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.