Private Sub Application_Start (Nav As NavigationController)
analytics.Initialize
NavControl = Nav
Nav.NavigationBarVisible = False
Dim splashPage As Page
splashPage.Initialize("")
splashPage.rootpanel.LoadLayout("Splash")
splashPage.Title = "Start"
NavControl.ShowPage(splashPage)
SQL1.Initialize(File.DirDocuments,"TTB.db",True)
Log("sql1 is initialized = " & SQL1.IsInitialized)
csu.Initialize
csu.CallSubDelayedPlus(Me, "Splash", 3500)
End Sub
Public Sub Splash
pg.Initialize("Main")
pg.RootPanel.LoadLayout("main")
pg.Title = "Menu"
pg.RootPanel.Color = Colors.Transparent
pg.HideBackButton = True
NavControl.ShowPage(pg)
auth.Initialize("auth")
facebook.Initialize(FacebookAppID)