Wish Enum Type

Public Const Red As Int = 0
Public Const Green As Int = 1
Public Const Blue As Int = 2

' VB.NET sample:
Public Enum Color
  Red
  Green
  Blue
End Enum

Sub Process_Globals
    Type Color ( _
        Red As Int, _
        Green As Int, _
        Blue As Int)
    Private Color As Color
End Sub

Sub AppStart (Args() As String)
    Color = CreateColor(0xFFFF0000, 0xFF00FF00, 0xFF0000FF)  
    LogColor("Red", Color.Red)
    LogColor("Green", Color.Green)
    LogColor("Blue", Color.Blue)
End Sub

Public Sub CreateColor (Red As Int, Green As Int, Blue As Int) As Color
    Dim t1 As Color
    t1.Initialize
    t1.Red = Red
    t1.Green = Green
    t1.Blue = Blue
    Return t1
End Sub

Sub Process_Globals
    Public Const RED As Int = 1
    Public Const GREEN As Int = 2
    Public Const BLUE As Int = 3
End Sub

Public Const COLOR_RED  As Int = -65536
Public Const COLOR_BLUE As Int = -16776961