Android Question How to make " asking permission before exiting the App?"

#Region  Project Attributes 
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim closeCounter As Int                                ' For double click exit routine
    Dim closeTimer As Long
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean

    Select KeyCode
        Case KeyCodes.KEYCODE_BACK
                   
            ' Handle the user exit request from the main screen
                   
            closeCounter = closeCounter + 1
       
            ' First time so start the counter
           
            If closeCounter = 1 Then
                closeTimer = DateTime.Now
                ToastMessageShow("Press Back again to exit", False)
            End If
           
            ' Second time but not within 3 seconds, reset to "First time"
           
            If closeCounter = 2 And DateTime.Now > closeTimer + 3000 Then
                closeCounter = 1
                closeTimer = DateTime.Now
                ToastMessageShow("Press Back again to exit", False)
            End If
           
            ' Two tries within 3 seconds, we're done
           
            If closeCounter = 2 Then
                closeCounter = 0
                Activity.Finish
            End If

            Return True
        Case Else
            Return False
    End Select
   
End Sub

Sub Activity_KeyPress(KeyCode As Int)As Boolean
    If KeyCode = KeyCodes.KEYCODE_BACK Then ' --> Button "BACK" - ExitApplication for a back press.
        Dim result As Int
        result = Msgbox2("Do you wish to Exit application?", "", "Exit", "Cancel", "", Null)
        If result = DialogResponse.CANCEL Then
            Return True
        Else
            Activity.Finish
        End If
    End If
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
   If KeyCode = KeyCodes.KEYCODE_BACK Then
     HandleBackKey 
     Return True 
   End If
   Return False
End Sub

Private Sub HandleBackKey
  Msgbox2Async(Message, "Close?", "Yes", "No", "", Null, False)
   Wait For MsgBox_Result (Result As Int)
   If Result = DialogResponse.POSITIVE Then
     Activity.Finish
   End If
End Sub