Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim result As Int
result = Msgbox2("Exit App?", "", "yes", "", "no", Null)
If result = DialogResponse.POSITIVE Then
Activity.Finish
Else If result = DialogResponse.NEGATIVE Then
End If
Return True
Else
Return False
End If
End Sub