'Initialize a bitmap drawable and the action item
bd.Initialize(LoadBitmap(File.DirAssets, Filename))
ai.Initialize(i, Text, bd)
ai.Selected = True
'Make the Prev and Next items sticky so they will not close the popup
'If i = 1 OR i = 2 Then ai.Sticky = True
'Add the item to both Quickactions popups
ac1.addActionItem(ai)
ac2.addActionItem(ai)