Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("1")
NavControl.ShowPage(Page1)
Page1.Title = "Title"
SetTitleColor(Nav, Colors.Red)
End Sub
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