Public Class PickerWheel
    Inherits Control
 
    Sub New()
        SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    End Sub
 
#Region "SelectedColor"
    Private pickcolor As HSLA
 
    Public Property SelectedColor As HSLA
        Get
            Return pickcolor
        End Get
        Set(value As HSLA)
            pickcolor = value
            Invalidate()
        End Set
    End Property
#End Region
 
End Class

    <TypeConverter(GetType(HSLATypeConverter))> _
    Public Structure HSLA
 
        Public Sub New(h As Double, s As Double, l As Double, Optional a As _
          Double = 1)
            Hue = h : Saturation = s : Luminance = l : Alpha = a
        End Sub
 
        Public Property Hue As Double
        Public Property Saturation As Double
        Public Property Luminance As Double
        Public Property Alpha As Double
 
        Public Overrides Function ToString() As String
            Return String.Format("{0}, {1}, {2}, {3}", Hue, Saturation, _
              Luminance, Alpha)
        End Function
 
    End Structure