Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Type ButtonProperties(btnBold As Typeface, btnNormal As Typeface, OnColor As Int, OffColor As Int )
Dim BP As ButtonProperties
BP.btnBold=Typeface.CreateNew(Typeface.MONOSPACE,Typeface.STYLE_ITALIC)
BP.btnNormal=Typeface.CreateNew(Typeface.SANS_SERIF,Typeface.STYLE_NORMAL)
BP.OnColor=Colors.Green
BP.OnColor=Colors.Red
End Sub