Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private Pane1 As Pane
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
MainForm.WindowHeight = 600
End Sub
Sub Button1_Click
xui.MsgboxAsync("Hello World!", "B4X")
Pane1.Top = MainForm.WindowHeight - Pane1.height - 48dip ' 48dip for 100% zoom, 40dip for 125% zoom
End Sub