Dim kc As New KnownColor
        Dim n As String = ""
        Dim strColor() As String = System.Enum.GetNames(kc.GetType())
 
        Dim Temp As New List(Of String)
       For i As Integer = 1 To 26
           n = System.Enum.GetName(kc.GetType, i)
           If Not n Is Nothing AndAlso n <> "" Then
               Temp.Add(n)
           End If
        Next i      
 
        Temp.Sort()