Private lsheader As ListView
Private NavDrawer As AHNavigationDrawer
NavDrawer.Initialize2("Drawer", pContent, 85%x,NavDrawer.GRAVITY_LEFT)
NavDrawer.SetEdgeSize(NavDrawer.GRAVITY_START, NavDrawer.GetEdgeSize(NavDrawer.GRAVITY_START) * 3)
Dim xml As XmlLayoutBuilder
NavDrawer.ShadowDrawable = xml.GetDrawable("drawer_shadow")
NavDrawer.StatusBarColor = Colors.Red
sd.Initialize(xml.GetDrawable("ic_drawer"))
imgLogo.Initialize("")
lsheader.Initialize("lsheader")
'We add the mListView to our NavigationPanel
NavDrawer.NavigationPanel.AddView(imgLogo, 0, 0, 85%x,230dip)
NavDrawer.NavigationPanel.AddView(lsheader, 0, imgLogo.Height,85%x, pContent.Height-imgLogo.Height)
NavDrawer.NavigationPanel.Color = Colors.Blue