Sub PermessoCartellaFoto
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
'rp.Check(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (permission As String, Result As Boolean)
If Result Then
CC.Initialize("CC")
Else
ToastMessageShow("No permission!!!", True)
Return
End If
End Sub