Sub Activity_CreateMenu(Menu As ACMenu)
Menu.Clear
Menu.Add(0, 0, "Overflow1", Null)
Menu.Add(0, 0, "Overflow2", Null)
Menu.Add(0, 0, "Overflow3", Null)
Dim item As ACMenuItem = ACToolBarLight1.Menu.Add2(0, 0, "cart", Null)
item.ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
UpdateIcon("cart", AddBadgeToIcon(cartBitmap, badge))
End Sub