Sub Activity_Create(FirstTime As Boolean)
'Opción ACActionBar
Dim bar As ACActionBar
Dim bd As BitmapDrawable
bar.Initialize
bd.Initialize(LoadBitmap(File.DirAssets, "icon.png")) 'No se vé esta imagen
bar.Icon = bd
bar.Title = "Título"
bar.Subtitle = "Éste es el subtítulo"
bar.Elevation = 8dip
Activity.AddMenuItem("Test overflow", "Menu") ' Solamente se vé en 4.4.2... Nexus 5 ??
Activity.AddMenuItem3("Buscar", "ActionSearch", LoadBitmap(File.DirAssets, "search.png"), True)
Activity.AddMenuItem3("MenuItem", "ActionMenu", LoadBitmap(File.DirAssets, "menu.png"), True)
'Opción StdActionBar
Dim bar As StdActionBar
Dim bd As BitmapDrawable
bar.Initialize("bar")
bd.Initialize(LoadBitmap(File.DirAssets, "icon.png")) 'No se vé esta imagen
bar.Icon = bd
' bar.Subtitle = "This is the subtitle" 'Da error
Activity.Title = "This is the title"
Activity.AddMenuItem3("Buscar", "ActionSearch", LoadBitmap(File.DirAssets, "search.png"), True)
Activity.AddMenuItem3("MenuItem", "ActionMenu", LoadBitmap(File.DirAssets, "menu.png"), True)
End Sub