#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Button1 As Button
Private toast As BCToast
Private xui As XUI
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
toast.Initialize(MainForm.RootPane)
toast.BB1.TextEngine.Initialize(MainForm.RootPane)
toast.BB1.TextEngine.CustomFonts.Put("italic", xui.CreateFont( fx.CreateFont("arial", 10, False, True), 10))
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub Button1_Click
toast.Show($"The [font=italic] time now [/font]is [b]$Time{DateTime.Now}[/b]"$)
End Sub