Spanish Detencion para escuchar un evento

' tienes que hacer estas variables globales y ponerlas en el click de cada botón
DIM BOTON_NOPULSADO = 0
Dim BOTON_SI = 1
DIM BOTON_NO = 2
DIM BOTON_CANCELAR = 3
Dim EsperarBoton as int
´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´


' donde quieras esperar a que pulsen el botón
EsperarBoton=BOTON_NOPULSADO

' hacer visible los botones

Do While EsperarBoton=BOTON_NOPULSADO
  doevents
Loop


' hacer invisible los botones


´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´
Sub BotonSi_Click
  EsperarBoton = BOTON_SI
end sub
´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´
Sub BotonNo_Click
  EsperarBoton = BOTON_NO
end sub

´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´

Sub Activity_KeyPress (KeyCode As Int) As Boolean

  ' para salir por botón Esc , puedes emplear lo mismo en otros sitios
  If KeyCode = KeyCodes.KEYCODE_BACK Then 
    EsperarBoton = BOTON_CANCELAR
    Return True
  end if

' Si los botones los incrustas en un panel, puedes poner la condición que el panel esté visible  
If KeyCode = KeyCodes.KEYCODE_BACK Then 
    If PanelBoton.Visible then
      EsperarBoton = BOTON_CANCELAR
      Return True
    end if
    ' si no está visible saldra de la app o del activity donde esté
end if
    



End Sub