Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
CustomListView1.DefaultTextBackgroundColor = xui.Color_White
For i = 1 To 100
CustomListView1.AddTextItem(i, "")
Next
Main.NavControl.ToolBarVisible = True ' <-----this
toolbar
End Sub