Sub Class_Globals
.
.
.
Private Drawer As B4XDrawer
.
.
.
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("Main")
Dlg.Initialize (Root)
'load MENU the layout to Root
Drawer.Initialize(Me, "Drawer", Root, 200dip)
Drawer.CenterPanel.LoadLayout("Main")
Drawer.LeftPanel.LoadLayout("MainPageMenu")