rp.Check(rp.PERMISSION_CAMERA) only returns true if 1st run permission is not allowed and when relaunch the app it never shows the dialog using the rp.CheckAndRequest(rp.PERMISSION_CAMERA) to ask the use again to get permission
Request Camera Use:
Dim Result As Boolean
dim rp As RuntimePermissions
If Not(rp.Check(rp.PERMISSION_CAMERA)) Then 'only returns true after checking a 2nd time after not allowing use
rp.CheckAndRequest(rp.PERMISSION_CAMERA)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
End If
Last edited: