Sub apaga
    Dim rr As Reflector
    rr.Target = rr.GetContext
    rr.Target = rr.RunMethod2("getSystemService", "audio", "java.lang.String")                  
    rr.RunMethod2("setSpeakerphoneOn", False, "java.lang.boolean")
    rr.RunMethod2("setMicrophoneMute", True, "java.lang.boolean")
    Log("Apagamos Sonido y Microfono, hipoteticamente ...")
End Sub