Private Sub SetColors(NavBarColor As Int, NavBarTextColor As Int, ToolBarColor As Int)
Dim no As NativeObject = NavControl
no.GetField("view").As(View).Color = ToolBarColor
Dim BarAppearance As NativeObject
BarAppearance = BarAppearance.Initialize("UINavigationBarAppearance").RunMethod("new", Null)
BarAppearance.RunMethod("configureWithOpaqueBackground", Null)
BarAppearance.RunMethod("setBackgroundColor:", Array(no.ColorToUIColor(NavBarColor)))
Dim attributes As NativeObject
attributes = attributes.Initialize("B4IAttributedString").RunMethod("createAttributes::", _
Array(Font.CreateNew(18), attributes.ColorToUIColor(NavBarTextColor)))
BarAppearance.RunMethod("setTitleTextAttributes:", Array(attributes))
no.GetField("navigationBar").SetField("standardAppearance", BarAppearance)
no.GetField("navigationBar").SetField("scrollEdgeAppearance", BarAppearance)
End Sub