Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Dim SideMenu As SideMenuController
Dim pgLeft,pgRight As Page
End Sub
Private Sub Application_Start (Nav As NavigationController)
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
pgLeft.Initialize("pgLeft")
pgLeft.RootPanel.Color=Colors.Green
Dim label1 As Label
label1.Initialize("label1")
label1.Text="Test"
pgLeft.RootPanel.AddView(label1,5,5,50,30)
NavControl.Initialize("NavControl")
SideMenu.Initialize(pgLeft,NavControl,Null)
SideMenu.OpenGesturesEnabled=True
App.KeyController=SideMenu
NavControl.ShowPage(Page1)
End Sub