Dim MStarter As MyStarter: MStarter.initialize
Wait For (MStarter.Start_sevice) complete(Ok As Boolean)
PedidoPg.initialize
B4XPages.AddPageAndCreate("PedidoPg", PedidoPg)
Entrada.initialize
B4XPages.AddPageAndCreate("Entrada", Entrada)
MenuPg.Initialize
B4XPages.AddPageAndCreate("MenuPg", MenuPg)
ProdutosPg.initialize
B4XPages.AddPageAndCreate("ProdutosPg", ProdutosPg)
If badger1.IsInitialized = False Then badger1.initialize