Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page2.Initialize("Page2")
Page1.RootPanel.LoadLayout("1")
Page2.RootPanel.LoadLayout("2")
Nav.ShowPage(Page1)
Dim b1, b2 As BarButton
b1.InitializeSystem(b1.ITEM_ADD, "b1")
b2.InitializeText("Button 2", "b2")
Page1.TopLeftButtons = Array(b1, b2)
End Sub
Sub Page1_BarButtonClick (Tag As String)
Log("Clicked button: " & Tag)
End Sub