Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim jo As JavaObject
jo.InitializeContext
jo.RunMethod("finishAndRemoveTask", Null)
Activity.Finish
Return True
End If
Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
End Sub