Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
If Edittext1.Text <> "" Then
Dim a As Int
a = Msgbox2("Do you want to save?","Save","Yes","Cancel","No",Null)
If a = DialogResponse.POSITIVE Then
'Save
Else If a = DialogResponse.CANCEL Then
Return True
End If
End If
Return False
Else
Return False
End If
End Sub