I have an icon on menu bar added with the code below:
B4X:
Dim mi As B4AMenuItem
mi = B4XPages.AddMenuItem(Me,"Lang")
mi.AddToBar = True
mi.Bitmap = xui.LoadBitmapResize(File.DirAssets, "lang.png", 70dip, 70dip, True)
What I am after, is that when this icon is pressed, a drop down menu is opened so I can have number of selections.