Enum Shade Red Green Blue Yellow = 12End Enum 'ColorsPublic Module Example Public Sub Main() Dim shadeName As String = CType(1, Shade).ToString() End SubEnd Module