Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
B4XPages.SetTitle(Me,"Test linee Telecontrollo")
B4XPages.AddMenuItem(Me, "Voce Menu 1") '<======== se la metto dopo il Wait For non fa apparire i 3 puntini
Wait For (TestInternet) Complete (Result As Boolean)
If Not(Result) Then
xui.MsgboxAsync($"Non hai connessione internet! ${CRLF}L'applicazione verrà chiusa."$,"Attenzione")
Wait For msgbox_result
Uscita
End If
pReport.Initialize
B4XPages.AddPage("idPageReport",pReport)
End Sub