Imports System

Imports System.Drawing

Public Module Module1

    Public Sub Main()

        Dim input As String = Console.ReadLine()

        If [Enum].IsDefined(GetType(KnownColor), input) Then

            Console.WriteLine("{0} is a known color.", input)

        Else

            Console.WriteLine("{0} is not a known color.", input)

        End If

​

    End Sub

End Module