Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1, Page2, Page3 As Page
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.Red
NavControl.ShowPage(Page1)
Page2.Initialize("page2")
Page2.Title = "Page 2"
Page2.Prompt = "You cannot go back"
Page2.RootPanel.Color = Colors.Green
Page2.HideBackButton = True '<-------------------
Page3.Initialize("page3")
Page3.Title = "Page 3"
Page3.Prompt = "You can go back"
Page3.RootPanel.Color = Colors.Blue
End Sub
Sub Page1_Click
NavControl.ShowPage(Page2)
End Sub
Sub Page2_Click
NavControl.ShowPage(Page3)
End Sub