Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Dim PagesManager As B4XPagesManager
PagesManager.Initialize(NavControl)
Dim tbc As TabBarController
tbc.Initialize("tbc")
App.KeyController = tbc
pgBagList.Initialize
pgMain.Initialize
mainNav.Initialize("mainNav")
B4XPages.AddPage("bagList", pgBagList)
tbc.Pages.Initialize
tbc.Pages = Array(pgMain, pgBagList)
End Sub
Sub pgMain_Click
B4XPages.ShowPage("MainPage")
End Sub