Dim smSubmenu As ACSubMenu
smSubmenu = NavDrawer.NavigationView.Menu.AddSubMenu(4,4,6,"SubMenu") ' Remeber the submenu created/created by AddSubMenu...
smSubmenu.AddWithGroup2(1, miUpgrade, 1001, "Upgrade", xml.GetDrawable("ic_account_circle_black_24dp")).ItemCollapsed=True ' add item to the new submenu