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))
Dim bd As BitmapDrawable = BitmapToBitmapDrawable(LoadBitmapResize(File.DirAssets, "hamburger.png", 32dip, 32dip, True))
Dim item2 As ACMenuItem = ACToolBarLight1.Menu.Add2(0, 0, "right menu", bd)
item2.ShowAsAction = item2.SHOW_AS_ACTION_ALWAYS
End Sub