Dim xml As XmlLayoutBuilder
NavDrawer.Initialize2("NavDrawer", Activity, NavDrawer.DefaultDrawerWidth, NavDrawer.GRAVITY_START)
Activity.LoadLayout("layout1")
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
NavDrawer.InitDrawerToggle
ToolBar.InitMenuListener
ToolBar.Title="AAA"
NavDrawer.NavigationView.LoadLayout( "navheaderLayout.bal", NavDrawer.DefaultHeaderHeight)
NavDrawer.NavigationView.Menu.AddWithGroup2(1, 1, 1, "Home", xml.GetDrawable("ic_home_black_24dp")).Checked = True
Dim actionViewItem As ACMenuItem
NavDrawer.NavigationView.Menu.AddWithGroup2(2, 10, 1000, "Download", xml.GetDrawable("ic_android_black_24dp"))
NavDrawer.NavigationView.Menu.AddWithGroup2(2, 11, 1100, "Search", xml.GetDrawable("ic_feedback_black_24dp"))
NavDrawer.NavigationView.Menu.AddWithGroup2(2, 12, 1200, "Settings", xml.GetDrawable("ic_settings_black_24dp"))
NavDrawer.NavigationView.Menu.AddWithGroup2(2, 13, 1300, "Help", xml.GetDrawable("ic_help_black_24dp"))
NavDrawer.NavigationView.Menu.AddWithGroup2(2, 14, 1400, "Rate it", xml.GetDrawable("ic_bookmark_black_24dp"))
NavDrawer.NavigationView.Menu.SetGroupCheckable(2, True, True)
PC.Initialize
Dim p As Panel
p.Initialize("")
p.RemoveAllViews
p.LoadLayout("frmsingle")
Dim pageName As String
pageName = "Download"
'Pan(4).AddView(pnlBars, 0%x, 0%y, 100%x, 80%y)
PC.AddPage(p, pageName)
Dim p As Panel
p.Initialize("")
p.RemoveAllViews
p.LoadLayout("frmdownload")
Dim pageName As String
pageName = "Downloaded"
PC.AddPage(p, pageName)
Dim p As Panel
p.Initialize("")
p.RemoveAllViews
p.LoadLayout("frmtaibang")
Dim pageName As String
pageName = "Board Download"
PC.AddPage(p, pageName)
VP.PageContainer = PC
Dim Ac As AppCompat
TabLayout.Color = Ac.GetThemeAttribute("colorPrimary")
TabLayout.SetViewPager(VP)