Private Function IsKnownColorName(ByVal c As Color) As String
        Dim retColorName as String = String.Empty
        Dim arColors As KnownColor() = [Enum].GetValues(GetType(KnownColor))
        Dim colorTable As New Hashtable(arColors.Length)
        For Each kc As KnownColor In arColors
            If Not colorTable.ContainsKey(Color.FromKnownColor(kc).ToArgb) Then
                colorTable.Add(Color.FromKnownColor(kc).ToArgb, kc.ToString)
            End If
        Next
        If colorTable.ContainsKey(c.ToArgb) Then retColorName = colorTable( _
          c.ToArgb).ToString
        Return retColorName
    End Function