'Part from Sub Global:
Dim AB As ClsActionBar
Dim PopupMenu1 As AHPopupMenu
Dim PopupPatrolType As AHQuickAction3D
'Part from Activity_create:
PopupMenu1.Initialize("PopupMenu1")
AddAHActionMenuItem(PopupMenu1, 1, "STOP", "Icon Stop.png", False) 'THIS IS WHERE IT STOPS WITH ERROR
AddAHActionMenuItem(PopupMenu1, 2, "Settings", "Icon Settings.png", False)
AddAHActionMenuItem(PopupMenu1, 3, "About App & OS MAPS", "Icon About.png", False)
'Custom Sub to add items
Sub AddAHActionMenuItem(MenuObject As View, ItemIndex As Int, Text As String, IconFileName As String, Sticky As Boolean)
Dim ai As AHActionItem
Dim Icon As BitmapDrawable
Icon.Initialize(LoadBitmap(File.DirAssets, IconFileName))
ai.Initialize(ItemIndex, Text, Icon)
If Sticky Then ai.Sticky = True
'Add the item to menu
Dim obj As AHQuickAction
obj=MenuObject
obj.AddActionItem(ai)
End Sub