Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("myapp")
Dim sf As Object = xui.Msgbox2Async("Show My App?", "confirmation", "Yes", "Cancel", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
'Log("Deleted!!!")
B4XPages.ShowPage("My App")
Else
'B4XPages.ShowPageAndRemovePreviousPages("MainPage")
B4XPages.ClosePage(Me)
End If
End Sub