''' <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)
 
            If R > 255 Or R < 0 Then Throw (New ArgumentOutOfRangeException( _
              "R", R, "Liegt ausserhalb des Wertebereichs von 0-255"))
            If G > 255 Or G < 0 Then Throw (New ArgumentOutOfRangeException( _
            "B", G, "Liegt ausserhalb des Wertebereichs von 0-255"))
            If B > 255 Or B < 0 Then Throw (New ArgumentOutOfRangeException( _
            "G", B, "Liegt ausserhalb des Wertebereichs von 0-255"))
 
 
            _A = 255
            _R = R
            _G = G
            _B = B
            SetRGB2HSV()
        End Sub

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

May the source code be with you.