Private Sub B4XPage_CloseRequest As ResumableSub
    'Globals
    'Private confirm As B4XView
    'Private confirmExit As Boolean
    If confirmExit Then Return True
    confirm = xui.CreatePanel("")
    confirm.SetLayoutAnimated(0, 0, 0, 350, 25)
    Dim msgLbl As Label: msgLbl.Initialize("")
    msgLbl.Text = "Are you sure you want to quit?"
    Dim yesBtn As Button: yesBtn.Initialize("confirmed")
    yesBtn.Text = "Yes"
    Dim noBtn As Button: noBtn.Initialize("cancelled")
    noBtn.Text = "Cancel"
    confirm.AddView(msgLbl, 5, 0, 170, 25)
    confirm.AddView(yesBtn, 180, 0, 50, 25)
    confirm.AddView(noBtn, 240, 0, 80, 25)
    Root.AddView(confirm, Root.Width/2 - confirm.Width/2, Root.Height/2 - confirm.Height/2, confirm.Width, confirm.Height)
    Return False
End Sub
Private Sub confirmed_Click
    confirmExit = True
    B4XPages.ClosePage(Me)
End Sub
Private Sub cancelled_Click
    confirmExit = False
    confirm.Visible = False
End Sub