Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Dim mi As B4AMenuItem = B4XPages.AddMenuItem(Me, "test")
mi.AddToBar = True
End Sub
Sub Button1_Click
Dim menus As List = B4XPages.GetManager.GetPageInfoFromRoot(Root).Parent.MenuItems
menus.Clear
'add menu items
Dim mi As B4AMenuItem = B4XPages.AddMenuItem(Me, "test2")
mi.AddToBar = True
Dim ctxt As JavaObject
ctxt.InitializeContext
ctxt.RunMethod("invalidateOptionsMenu", Null)
End Sub