'Class module
Sub Class_Globals
Private mBlue, mYellow, mGreen As Int
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize()
mBlue = 0
mYellow = 1
mGreen = 2
End Sub
Public Sub getBlue As Int
Return mBlue
End Sub
Public Sub getYellow As Int
Return mYellow
End Sub
Public Sub getGreen As Int
Return mGreen
End Sub