Wish "Not in Reelease" keyword

Type=StaticCode
Version=3.82
B4A=true
@EndOfDesignText@
'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
   
    'Log(DateTime.Date(DateTime.Now))
    'Log(DateTime.Time(DateTime.Now))

    Public logError = 1
    Public logWarning = 2
    Public logNotice = 4
    Public logDebug = 8
    Public logSub = 16

End Sub
Sub MyLog(LogType As Int, text As String)
    Select LogType
    Case logError
        LogColor("  Error: "&text,Colors.Red)
    Case logWarning
        LogColor("Warning: "&text,Colors.ARGB(255,255,140,0))
    Case logNotice
        LogColor(" Notice: "&text,Colors.Blue)
    Case logDebug
        LogColor("  Debug: "&text,Colors.ARGB(255,139,0,0))
    Case logSub
        LogColor("    Sub: "&text,Colors.ARGB(255,139,0,0))
    End Select   
End Sub

#If Debug
Log("something")
#End If