Page8.Initialize("Page8")
Page8.RootPanel.LoadLayout("Page8")
Dim b1, b2, b3, b4, b5, b6 As BarButton
b1.InitializeBitmap(LoadBitmap(File.DirAssets,"brazil_iphone.png"),"1")
b2.InitializeText("French", "2")
b3.InitializeText("Spanish","3")
b4.InitializeText("German", "4")
b5.InitializeText("Portuguese", "5")
b6.InitializeText(">", "6")
Page8.TopLeftButtons = Array(b1, b2, b3, b4, b5, b6)
'Change colour of bar to Turquoise
Dim no As NativeObject = NavControl
no.GetField("navigationBar").RunMethod("setBarTintColor:", Array(no.ColorToUIColor(Colors.RGB(91,191,183))))
'Change text color of buttons to white
Dim no As NativeObject = NavControl
no.GetField("navigationBar").SetField("tintColor", no.ColorToUIColor(Colors.RGB(255,255,255)))
ScrollView1.Panel.LoadLayout("Page7")
NavControl.NavigationBarVisible = True
ScrollView1.ContentWidth = LayoutValues.Width
NavControl.ShowPage(Page8)