مشکل در کد کلید back گوشی

[mehdi1376 44]

سلام دوستان

وقتی کد زیر رو در برنامه  وارد میکنم و برنامه رو کامپایل میکنم در صفحه گوشیم وقتی کلید بک گوشی رو میزنم تا پیام تمایل به خروج نمایش داده بشه برنامه چیزی نشون نمیده

Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then Return False
	Dim ext As Int
ext = Msgbox2("آیا قصد خروج دارید؟ ","","بلی ","","خیر ",Null)
If ext = DialogResponse.POSITIVE Then
ExitApplication
End If
Return False
End Sub

مشکلش چی هست؟

ممنون

[msajad 501]

Sub Activity_keypress(keycode As Int) As Boolean

Dim aa As Int

  If keycode=KeyCodes.KEYCODE_BACK Then

  aa =Msgbox2("آیا میخواهید خارج شوید؟","خروج","بله","","خیر",Null)

  If aa=DialogResponse.POSITIVE Then

  Return False

 Else

 Return True

 End If

 End If

 End Sub