Dim smAccount As ACSubMenu
smAccount = NavDrawer.NavigationView.Menu.AddSubMenu(1, 1000, 1000, "Account")
smAccount.AddWithGroup2(1, miUpgrade, 1001, "Upgrade", xml.GetDrawable("ic_account_circle_black_24dp")).ItemCollapsed=True
If auth.CurrentUser.IsInitialized Then
smAccount.AddWithGroup2(1, miSignout, 1001, "Sign Out", xml.GetDrawable("ic_account_off_black_24dp")).ItemCollapsed=True
smAccount.AddWithGroup2(1, miSync, 1002, "Sync", xml.GetDrawable("ic_cloud_sync_black_24dp")).ItemCollapsed=True
Else
smAccount.AddWithGroup2(1, miSignin, 1001, "Sign In", xml.GetDrawable("ic_account_circle_black_24dp")).ItemCollapsed=True
End If