Sub Activity_Create(FirstTime As Boolean)
Drawer.Initialize(Me, "Drawer", Activity, 300dip)
Drawer.CenterPanel.LoadLayout("1")
For i = 1 To 30
ListView2.AddSingleLine("Item " & i)
Next
ToolbarHelper.Initialize
ToolbarHelper.ShowUpIndicator = True 'set to true to show the up arrow
Dim bd As BitmapDrawable
bd.Initialize(LoadBitmap(File.DirAssets, "hamburger.png"))
ToolbarHelper.UpIndicatorDrawable = bd
ACToolBarLight1.InitMenuListener
Drawer.LeftPanel.LoadLayout("Left")
Dim xui As XUI