Dim Menu As clsModularMenu ' in sub globals
.....
Menu.Initialize(5, 49dip, Activity, Me) 'in Activity_Create
......
'then as part of one of my subs I have (only test data to see if works)
Menu.RemoveAll 'remove previous items
Menu.AddMenuItem("menu item 1" & ID, Null, "mnu") 'ID is an Int
Menu.AddMenuItem("menu item 2" & ID, Null, "mnu")
Menu.AddMenuItem("menu item 3" & ID, Null, "mnu")
Menu.AddMenuItem("menu item 4" & ID, Null, "mnu")
Menu.OpenMenu
......
'then a sub to catch the click
Sub mnu_Click
ToastMessageShow("clicked", False)
End Sub