#Region Sends the audio to the phone and not the headset without disconnection
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "audio", "java.lang.String")
Dim mode As Int
If Value Then mode = 2 Else mode = 0
r.RunMethod2("setMode", mode, "java.lang.int")
#End Region
#Region Activates the phone's loud speaker
' r.Target = r.GetContext
' r.Target = r.RunMethod2("getSystemService", "audio", "java.lang.String")
r.RunMethod2("setSpeakerphoneOn",Value,"java.lang.boolean")
' SP ON : Value=True
#End Region