Activity.AddMenuItem2("Info", "mnuInfo", LoadBitmap(File.DirAssets,"btn_info.png"))
...
Sub btnTest_Click
mnuInfo_Click
End Sub
Sub mnuInfo_Click
Msgbox2("Version " & mBBL.getVersion & CRLF & CRLF & Copyright & CRLF & Autor, AppName,"OK","","",LoadBitmap(File.DirAssets,"cronomillemiglia_48x48.png"))
End Sub