'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.Color = xui.Color_White
Root.LoadLayout("pageMain") 'HERE THERE IS A TABSTRIP
FillViewPager
StartMap
End Sub
#Region Main Page
Private Sub FillViewPager
spMainAddPage("pvMyCar")
spMainAddPage("pvHome") 'HERE THERE IS A MAPFRAGMENT
spMainAddPage("pvSettings")