Sub StartBluetoothSco()
Dim r As Reflector
ToastMessageShow("Start sco", False)
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "audio", "java.lang.String")
r.RunMethod("startBluetoothSco")
Log("StartBluetoothSco") '<--------------
End Sub