Sub DoIHaveCamAccess() As Boolean
'AVAuthorizationStatus authStatus = [AVCaptureDevice authorizationStatusForMediaType:mediaType];
Dim status As Boolean=False
Dim no As NativeObject
no.Initialize("AVCaptureDevice")
status=no.RunMethod("authorizationStatusForMediaType",Array As Object("AVMediaTypeVideo")).AsNumber ' The App crash here'
If status=True Then
Return True
Else
Return False
End If
End Sub