Private Sub Application_Start (nav As NavigationController)
SetNavigationBarTitleStyle(Colors.Red, Font.CreateNewBold(20))
Dim nav As NavigationController
nav.Initialize("nav")
App.KeyController = nav
NavControl = nav
Page1.Initialize("Page1")
NavControl.ShowPage(Page1)
Page1.RootPanel.LoadLayout("1")
End Sub
Sub SetNavigationBarTitleStyle(Color As Int, Fnt As Font)
Dim attributes As NativeObject
attributes = CreateMap("NSFont": Fnt, "NSColor": attributes.ColorToUIColor(Color))
Dim no As NativeObject
no.Initialize("UINavigationBar").RunMethod("appearance", Null) _
.RunMethod("setTitleTextAttributes:", Array(attributes.RunMethod("ToDictionary", Null)))
End Sub