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