Private Sub B4XPage_CloseRequest As ResumableSub
If WebView1.Url=("https://your home page url/")Then
Dim sf As Object = xui.Msgbox2Async("Exit?", "Do you want to exit ", "Yes", "Cancel", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
Return True
End If
End If
WebView1.Back
Return False
End Sub