Sub Activity_Keypress (KeyCode As Int) As Boolean
Dim Answ As Int
Dim Txt As String
If KeyCode=KeyCodes.KEYCODE_BACK Then
Txt = "Do you really want to Quit the Program ?"
Answ=Msgbox2(Txt,"ATTENTION","Yes","Cancel","",Null)
If Answ=DialogResponse.CANCEL Then
Return True
End If
End If
Return False
End Sub