Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
Dim cvs As B4XCanvas
cvs.Initialize(Pane1)
Dim fnt As Font = jFX.CreateFont("Segoe Script", 150, False, False)
DrawTextWithBorder(cvs, "VAN", fnt, xui.Color_Red, Pane1.Width / 2, Pane1.Height / 2)
cvs.Invalidate
End Sub