Dim rpStorage, rpCam as RuntimePermissions
DefFolder = rpStorage.GetSafeDirDefaultExternal("")
rpStorage.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
rpCam.CheckAndRequest(rp.PERMISSION_CAMERA)
....some lines below
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = rpStorage.PERMISSION_WRITE_EXTERNAL_STORAGE Then
..................
End If
If Permission = rpCam.PERMISSION_CAMERA Then
..................
End If
End Sub