Wish [BANano] [SOLVED]- 1.21 Enumeration Initialization Assignments

#IgnoreWarnings:12
    'create a COLOR class
Sub Class_Globals
    Public AMBER As String
    Public BLACK As String
    Public BLUE As String
    Public BLUEGREY As String
    Public BROWN As String
    Public CYAN As String
    Public DEEPORANGE As String
    Public DEEPPURPLE As String
    Public GREEN As String
    Public GREY As String
    Public INDIGO As String
    Public LIGHTBLUE As String
    Public LIGHTGREEN As String
    Public LIME As String
    Public ORANGE As String
    Public PINK As String
    Public PURPLE As String
    Public RED As String
    Public TEAL As String
    Public TRANSPARENT As String
    Public WHITE As String
    Public NORMAL As String
    Public YELLOW As String
End Sub

'Initializes COLOR object
Sub Initialize() As BANanoMaterialColor
    AMBER = "amber"
    BLACK = "black"
    BLUE = "blue"
    BLUEGREY = "blue-grey"
    BROWN = "brown"
    CYAN = "cyan"
    DEEPORANGE = "deep-orange"
    DEEPPURPLE = "deep-purple"
    GREEN = "green"
    GREY = "grey"
    INDIGO = "indigo"
    LIGHTBLUE = "light-blue"
    LIGHTGREEN = "light-green"
    LIME = "lime"
    ORANGE = "orange"
    PINK = "pink"
    PURPLE = "purple"
    RED = "red"
    TEAL = "teal"
    TRANSPARENT = "transparent"
    WHITE = "white"
    NORMAL = ""
    YELLOW = "yellow"
    Return Me
End Sub

Dim EnumColor as BANanoMaterialColor
EnumColor.Initialize

Log(EnumColor.GREEN)

Log(EnumColor.GREEN)
'result - green

Sub Class_Globals
    Public AMBER As String = "amber"
   'Or Public Const AMBER As String ="amber"
    Public BLACK As String = "black"
    Public BLUE As String = "blue"
End Sub

Public Sub Initialize
End Sub