Private Sub Application_Start (Nav As NavigationController)
#region Prime Inizializzazioni
GPS.Initialize("GPS")
LoadConf
CaricaCitta
NavControl = Nav
Dim no As NativeObject = App
no.RunMethod("setStatusBarStyle:", Array(1))
Dim no As NativeObject = NavControl
no.GetField("navigationBar").RunMethod("setBarStyle:", Array(1))
Dim no As NativeObject = App
no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
Page1.Initialize("Page1")
Page1.RootPanel.Color = Colors.Transparent
PageActOrarie.Initialize("PageActOrarie")
PageActOrarie.RootPanel.Color = Colors.RGB(0,51,102) ' POI FAREMO IL COLORE GRADIENTATO UGUALE A QUELLO DELLA VERSIONE ANDROID
PageActAltro.Initialize("PageActAltro")
PageActAltro.RootPanel.Color = Colors.RGB(0,51,102)
PageActConf.Initialize("PageActConf")
PageActConf.RootPanel.Color = Colors.RGB(0,51,102)
ClassActOrarie.Initialize(Nav)
ClassActAltro.Initialize(Nav)
ClassActConf.Initialize(Nav)
BManager.Initialize
#end region
#region Immagine di Sfondo
igvSfondo.Initialize("IV")
igvSfondo.Bitmap = LoadBitmap(File.DirAssets, "sf_sereno1.jpg")
igvSfondo.ContentMode = igvSfondo.MODE_TOPLEFT
Page1.RootPanel.AddView(igvSfondo, 0,0,100%x, 100%y)
#end region
...
...
...
...