Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
NavControl.ToolBarVisible = True
NavControl.NavigationBarVisible = True
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("Page1")
'Works with a single buttons
'Page1.ToolbarButtons = Array(createBarButtonFontAwesome(Chr(0xF128), "one"))
'Works with two buttons
' Page1.ToolbarButtons = Array(createBarButtonFontAwesome(Chr(0xF128), "one"), createBarButtonFontAwesome(Chr(0xF1E0), "two"))
'Does not work with more than two buttons - Icons are shown on the left
Page1.ToolbarButtons = Array(createBarButtonFontAwesome(Chr(0xF128), "one"), _
createBarButtonFontAwesome(Chr(0xF1E0), "two"), _
createBarButtonFontAwesome(Chr(0xF029), "three"))
NavControl.ShowPage(Page1)
End Sub