Public Sub Show
If page2.IsInitialized = False Then
page2.Initialize("page2")
page2.RootPanel.LoadLayout("2")
End If
Main.NavControl.ShowPage(page2)
ReplaceBackButton(page2, "< titolo", "Tag")
End Sub
Sub page2_BarButtonClick (Tag As String)
Log(Tag)
End Sub
Sub ReplaceBackButton(pg As Page, Title As String, Tag As String)
pg.HideBackButton=True
Dim buttons As List
buttons.Initialize
Dim newButton As BarButton
newButton.InitializeText(Title, Tag)
buttons.Add(newButton)
pg.TopLeftButtons=buttons
End Sub