Private Function IsKnownColorName(ByVal c As Color) As String
        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 _
           IsKnownColorName = colorTable(c.ToArgb).ToString
    End Function

Salzburger