Private Function compareColor(ByVal c As Color) As String
        ' Get all the values from the KnownColor enumeration
        Dim colorsArray As System.Array = [Enum].GetValues(GetType(KnownColor))
        Dim allColors(colorsArray.Length) As KnownColor
        Array.Copy(colorsArray, allColors, colorsArray.Length)
 
        compareColor = ""
        For i As Integer = 0 To allColors.Length - 1
            If c = allColors(i) Then
                compareColor = allColors(i).ToString
                Exit For
            End If
        Next i
    End Function

Salzburger