Sub Class_Globals
Main.cG.Initialize 'object of "GlobalClass" for easy (global) access from every page (in Main/Process_Globals: Public cG As GlobalClass)
Root = Root1
Root.LoadLayout("viewFrmPage1")
B4XPages.SetTitle(Me, "My Page1")
'declare other B4X-Pages here
Public pgPage1 As FrmPage1
'other pages ...
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
'add other B4X-Pages here
pgPage1.Initialize
B4XPages.AddPage("pgPage1", pgPage1)
'other pages ...
End Sub
'Navigate to page:
B4XPages.ShowPage("pgPage1")