Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private BackGround As Boolean
End Sub
'You can add more parameters here.
Public Sub Initialize As Object
Return Me
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("layTestPage")
BackGround = False
End Sub
private Sub B4XPage_Background
BackGround = True
End Sub