'Activity_create....
Activity.AddMenuItem3("Popup", "Menu", LoadBitmap(File.DirAssets, "ic_menurayitas.png"), True)
Activity.AddMenuItem3("Ayuda", "mnuAyuda", LoadBitmap(File.DirAssets, "ic_help_circle.png"), True)
Sub Menu_Click
Log("Show popup")
'add the dummy view to the activity
dummy.Initialize("")
Activity.AddView(dummy, 80%x, 0, 1dip, 1dip)
dummy.Color = Colors.Transparent
'Create and show popup menu
Dim pop As PopupMenu
pop.Initialize("ABPop", dummy)
pop.AddMenuItem(0, "Agregar Especie " , GetDrawable("ic_mas_especie"))
pop.AddMenuItem(1, "Agregar Efectivo ", GetDrawable("ic_mas_pesos"))
pop.AddMenuItem(2, "Grafico por Especie ", GetDrawable("ic_chart_pie"))
pop.AddMenuItem(3, "Grafico por Panel ", GetDrawable("ic_chart_arc"))
pop.Show
End Sub