Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("1")
NavControl.ShowPage(Page1)
' Page1.TopLeftButtons = Array( _
' CreateFABarButton(Chr(0xF054), "right") _
' ,CreateFABarButton(Chr(0xF053), "left") _
' ,CreateFABarButton(Chr(0xF00C), "v") _
' ,CreateFABarButton(Chr(0xF00D), "x"))
Dim bb As BarButton
bb.InitializeBitmap(LoadBitmapResize(File.DirAssets, "test.png", 64dip, 64dip, True), "logo")
bb.TintColor = Colors.ARGB(255, 16,55,113)
Page1.TopLeftButtons = Array(bb)
NavControl.ToolBarVisible = True
End Sub