Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("TRANSPARENT")
MainForm.RootPane.As(B4XView).Color = xui.Color_Transparent
MainForm.BackColor = fx.Colors.Transparent
Dim Btn As Button
Btn.Initialize("Btn")
Btn.Text = "Close"
MainForm.RootPane.AddNode(Btn,100,100,150,30)
' MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
End Sub
Sub Btn_Click
ExitApplication
End Sub