Sub Process_Globals
Public App As Application
Private Page1, page2, page3, page4 As Page
Private tbc As TabBarController
Public nav1, nav2, nav3, nav4 As NavigationController
End Sub
Private Sub Application_Start (Nav As NavigationController)
tbc.Initialize("tbc")
App.KeyController = tbc
Page1.Initialize("Page1")
' ...
nav1.Initialize("nav1")
nav2.Initialize("nav2") '...
tbc.Pages = Array(nav1, nav2, nav3, nav4)
nav1.ShowPage(page1)
nav2.ShowPage(page2) '...
End Sub