Dim l As List
l.Initialize
Dim b As BarButton
b.InitializeBitmap(LoadBitmap(File.DirAssets,"ios_menu_1_on.png"),"0")
b.Enabled = True
l.Add(b)
'
Dim b As BarButton
b.InitializeSystem(b.ITEM_UNDO,"0")
b.Enabled = True
b.TintColor = Colors.Red
l.Add(b)
mpa.ToolbarButtons = l