Sub createNavDrawer
navDrawer.Initialize("navDrawer", Activity, Min(Activity.Width - c.ICON_SIZE1, 450dip))
navDrawer.FitsSystemWindows = True
Dim bmd As BitmapDrawable
bmd.Initialize(c.generateBitmapFromIconCode(c.ICON_MENU, Colors.gray, 24, 48dip, False))
slide.Initialize(bmd)
drawerULV.Initialize(0, 0, "", "drawerULV")
drawerULV.DividerHeight = 0
drawerULV.SelectionMode = drawerULV.SELECTION_SINGLE
drawerULV.AtLeastOneSelection = True
drawerULV.SelectWithClick = True
navDrawer.NavigationPanel.AddView(drawerULV, 0, 0, navDrawer.NavigationPanel.Width, navDrawer.NavigationPanel.Height)
navDrawer.ContentPanel.LoadLayout("main")
End Sub