Sub Page1_BarButtonClick (Tag As String)
Dim no As NativeObject = smc
If no.GetField("openSide").AsNumber <> 0 Then
smc.CloseMenu
Return
End If
Select Tag
Case "left"
smc.OpenLeftMenu
Case "back"
Main.NavControl.RemoveCurrentPage
'Only work (i.e. go back to main page) after SetPagesStack
Main.NavControl.SetPagesStack(Array(Main.pgMain))
End Select
End Sub