Activity.AddMenuItem3("", "btnmail", LoadBitmap(File.DirAssets, "empty.png"), True)
Activity.AddMenuItem3("", "btnmenu", LoadBitmap(File.DirAssets, "empty.png"), True)
Dim jo As JavaObject = bar
dim alternateMenu As Panel
alternateMenu.Initialize("altMenu")
alternateMenu.LoadLayout("alternateMenuMain")
jo = jo.GetField("bar")
jo.RunMethod("setDisplayShowCustomEnabled", Array As Object(True))
jo.RunMethod("setCustomView", Array As Object(alternateMenu))
btnMail.SetBackgroundImage(LoadBitmap(File.DirAssets,"730-envelope-selected.png"))
Sub btnmail_click
StartActivity(MessagesList)
End Sub