Public Class ExColorDialog
        Inherits ColorDialog
 
        Public Shadows Property CustomColors() As _
          System.Collections.Specialized.StringCollection
            Get
                Dim myList As New _
                  System.Collections.Specialized.StringCollection
                For Each myColor As Integer In MyBase.CustomColors
                    myList.Add(myColor.ToString)
                Next
                Return myList
            End Get
            Set(ByVal value As System.Collections.Specialized.StringCollection)
                Dim myList As New List(Of Integer)
                For Each myColor As String In value
                    myList.Add(CInt(myColor))
                Next
                MyBase.CustomColors = myList
            End Set
        End Property
    End Class