Italian Come azzerare lo stack della pressione dei tasti?

Sub Globals
   Dim tempKeyPress As Long
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
   If DateTime.Now - tempKeyPress < 500 Then
    KeyCode = 0      
    Return True
   End If
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
Dim stato As Boolean
Dim label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean

   Dim inutile As Int
   
    If KeyCode = KeyCodes.KEYCODE_BACK Then          'intercettazione del tasto back
            If stato = False  Then                 'se la variabile stato è false    
                label1.text = "falso" : stato = True   'carica il testo e mette la variabile stato a true
            Return True
         End If
            If stato = True Then                'se stato = true   
                inutile=1                        'mette a 1 una variabile d'appoggio 
            Return True
         End If         
                                             'poi puoi resettare a false la variabile stato in qualunque parte del
                                          'codice dove ti serve.
    
        End If
    
   End Sub

If Stato = False  Then   
  ToastMessageShow(Stato,False)
  StatoBack = True
  Return True
  End If
If Stato = True Then
  ToastMessageShow(Stato,False)
  temp=1
  Return True
End If