'Application_Start - Main module
Dim no As NativeObject = NavControl
no.GetField("navigationBar").RunMethod("setBarTintColor:", Array(no.ColorToUIColor(NavBarBarTintColor)))
no.GetField("view").As(View).Color = NavBarBarTintColor
Dim no As NativeObject = App
no.RunMethod("setStatusBarStyle:", Array(1))
SetTitleColor(Nav, Colors.White)
Dim no As NativeObject = NavControl
no.GetField("navigationBar").RunMethod("setTintColor:", Array(no.ColorToUIColor(NavBarTintColor)))
Sub SetTitleColor(nav As NavigationController, clr As Int)
Dim attributes As NativeObject
attributes = attributes.Initialize("B4IAttributedString").RunMethod("createAttributes::", _
Array(Font.CreateNew(18), attributes.ColorToUIColor(clr)))
Dim no As NativeObject = nav
no.GetField("navigationBar").RunMethod("setTitleTextAttributes:", Array(attributes))
End Sub