Dim P As Phone
Dim sbOut, sbErr As StringBuilder
sbOut.Initialize
sbErr.Initialize
p.Shell("pm revoke com.google.android.apps.authenticator2 android.permission.CAMERA", Null, sbOut, sbErr)
Log("sbOut: " & sbOut.ToString &CRLF& "sbErr: " &CRLF& sbErr.ToString)