#PlistExtra: <key>UIViewControllerBasedStatusBarAppearance</key><false/>
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Dim PagesManager As B4XPagesManager
PagesManager.Initialize(NavControl)
NavControl.NavigationBarVisible = False 'hide navigation bar b4xpages
Dim NavBarBarTintColor As Int = Colors.RGB(233,176,0)
Dim no As NativeObject = NavControl
no.GetField("navigationBar").RunMethod("setBarTintColor:", Array(no.ColorToUIColor(NavBarBarTintColor)))
no.GetField("view").As(View).Color = NavBarBarTintColor
End Sub