Function GetColorName(ByVal myColor As Color) As String
    Dim res = From c In CType([Enum].GetValues(GetType(KnownColor)),  _
              KnownColor()) Where Color.FromKnownColor(c) = myColor
    If res.Count = 0 Then
      Return "keine bekannte Farbe"
    Else
      Return res(0).ToString
    End If
  End Function