B4XPages.AddMenuItem(Me, "Change Detection Range")
...
Sub B4XPage_MenuClick (Tag As String)
...
Select Tag
Case "Change Detection Range"
ChangeFindRange
...
End Sub
Sub ChangeFindRange
pnlProtect.BringToFront
pnlChangeRange.BringToFront
bChange = True
End Sub
Private Sub B4XPage_CloseRequest As ResumableSub
...
If bChange Then
pnlChangeRange.SendToBack
If Not(bWeb) Then pnlProtect.SendToBack
bChange = False
End If
...
Return True <== issue is after this line
End Sub