Spanish Como configurar los botones físicos

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
    If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
        If ServicioActivo Then
           Haz cosas aquí...
        End If
    End If
End Sub

Sub Globals
   Dim ContadorBotonVolumen = 0 As Int
   Dim Tiempo = 0 As Long
   Dim ServicioActivo = True As Boolean ' lo puse asi para hacer pruebas
'''''''''''''''''''
'''''''''''''''''''
'''''''''''''''''''

Sub activity_KeyUp (KeyCode As Int) As Boolean
 
   Dim TiempoTranscurridoSegundos As Long

  TiempoTranscurridoSegundos = (DateTime.Now-Tiempo)/DateTime.TicksPerSecond
 
   ' por si se entra pasado mucho tiempo
   If TiempoTranscurridoSegundos > 7  Then ContadorBotonVolumen = 0
 
    If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
       If ServicioActivo Then
               If ContadorBotonVolumen = 0 Then Tiempo= DateTime.Now
               TiempoTranscurridoSegundos = (DateTime.Now-Tiempo)/DateTime.TicksPerSecond
               ContadorBotonVolumen = ContadorBotonVolumen +1
               Log("Contador " & ContadorBotonVolumen & " Segundos " & TiempoTranscurridoSegundos) ' es solo para ver la evolución
               If TiempoTranscurridoSegundos <=7  Then
                   If ContadorBotonVolumen = 5 Then
                     LogColor("Llegó a 5 en su tiempo", Colors.Blue)
                       ContadorBotonVolumen = 0
                       ' ******* aqui pones el código que quieras *******
                   End If
               Else
                   ' se superó el tiempo
                 ContadorBotonVolumen = 0  
           End If
           Else
               ' si el servicio está parado se resetea
               ContadorBotonVolumen = 0  
           End If
           Return True
       Else
           ' si quieres que al pulsar otra tecla se resetee el tiempo y el contador ponlo aqui
        
           Return True
 
       End If

 
 
End Sub