Sub CreateLayout
Dim create As Boolean = true
If create Then
Main.App.KeyController = Main.tbc
Dim no As NativeObject = Main.tbc
no.GetField("tabBar").SetField("tintColor", no.ColorToUIColor(0xFFED7B53)) 'active item
Dim tbb As TabBarItem
tbb.Initialize("Scala grafica",LoadBitmap(File.DirAssets,"ios_menu_0_off.png"),LoadBitmap(File.DirAssets,"ios_menu_0_on.png"))
Dim scal As Scala
scal.Initialize()
scal.GetPage.TabBarItem = tbb
Dim tbb As TabBarItem
tbb.Initialize("Analisi",LoadBitmap(File.DirAssets,"ios_menu_1_off.png"),LoadBitmap(File.DirAssets,"ios_menu_1_on.png"))
Dim an As analisi
an.Initialize()
an.GetPage.TabBarItem = tbb
Main.tbc.Pages = Array(scal.GetPage,an.GetPage)
Main.NavControl.NavigationBarVisible = True
End If
End Sub