Sub Activity_KeyPress(KeyCode As Int) As Boolean
Dim Answ As Int
If KeyCode = KeyCodes.KEYCODE_BACK Then
Answ = Msgbox2("Zaista želite izaći iz programa?", "POZOR!!!", "DA. Želim.", "", "NE! Ne još!", Null)
If Answ = DialogResponse.POSITIVE Then
Activity.Finish
Else
Return True
End If
End If
End Sub