If pg.IsInitialized = False Then
pg.Initialize("pg")
pg.RootPanel.Color = Colors.Black
pg.RootPanel.LoadLayout("lay_home")
pg.Title = "XXXXXXX"
End If
Main.NavControl.ShowPage(pg)
Main.NavControl.ToolBarVisible = True
'InizializzoToastMessage
dt.Initialize(pg,17,True)
'Full screen
Main.NavControl.ToolBarVisible = False
Main.NavControl.SetNavigationBarVisibleAnimated(False)
Dim no As NativeObject = App
no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
SetStatusBarStyleLight
'Creo SideMenu
Dim nc As NavigationController
nc.Initialize("nc")
Main.NavControl = nc
Dim lp As Page
lp.Initialize("lp")
lp.RootPanel.Color = Colors.Red
lp.RootPanel.LoadLayout("lay_home_ordini")
smc.Initialize(lp, nc, Null)
App.KeyController = smc
nc.ShowPage(pg)
Dim b1 As BarButton
b1.InitializeBitmap(KeepOriginalColors(LoadBitmap(File.DirAssets, "cart.png")), "left")
pg.TopLeftButtons = Array(b1)