Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
Page1.RootPanel.LoadLayout("Layout1")
BottoMenu1.AddMenu(Chr(0xF009),XUI.CreateFontAwesome(18))
BottoMenu1.AddMenu(Chr(0xF0CA),XUI.CreateFontAwesome(18))
BottoMenu1.AddMenu(Chr(0xF0EC),XUI.CreateFontAwesome(18))
BottoMenu1.AddMenu(Chr(0xF096),XUI.CreateFontAwesome(18))
BottoMenu1.AddMenu(Chr(0xF2C0),XUI.CreateFontAwesome(18))
End Sub
Sub BottoMenu1_Selected(Value As Int)
Log(Value)
End Sub