Sub setTabBarSettings
Dim bb1, bb2, bb3, bb4, bb5 As BarButton
Dim gride As Bitmap
gride.Initialize(File.DirAssets, "Data-Grid-icon.png")
bb1.InitializeBitmap(gride, "Register")
bb2.InitializeSystem(bb2.ITEM_FLEXIBLE_SPACE, "")
Dim cheque As Bitmap
cheque.Initialize(File.DirAssets, "Finance-Check-Book-icon1.png")
bb3.InitializeBitmap(cheque, "Check")
Dim help As Bitmap
help.Initialize(File.DirAssets, "Very-Basic-About-icon.png")
bb4.InitializeSystem(bb2.ITEM_FLEXIBLE_SPACE, "")
bb5.InitializeBitmap(help, "Help")
Page1.ToolbarButtons = Array(bb1, bb2, bb3, bb4, bb5)
End Sub