Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("nuevotem")
Dim xml As XmlLayoutBuilder
Dim bd As BitmapDrawable
'COLOR DE FONDO DE LA ACTIVIDAD
Activity.Color=Colors.White' AC.GetThemeAttribute("colorAccent")
bd = xml.GetDrawable("ic_camera_alt_white_24dp")
Activity.AddMenuItem3("Fotos", "Menu", bd.Bitmap, True)
bd = xml.GetDrawable("ic_done_white_24dp")
Activity.AddMenuItem3("Guardar", "Menu", bd.Bitmap, True)
'LOGO DE LA APP
ActionBar.LogoBitmap = LoadBitmap(File.DirAssets, "b4a_180.png")
End Sub