Private Sub requestCameraPermission(bcs As BarcodeScanner) As Boolean
Dim bolGranted As Boolean
Dim no As NativeObject = bcs
Dim bl As NativeObject
Try
bolGranted = no.GetField("scanner").RunMethodWithBlocks("requestCameraPermissionWithSuccess:", Array(bl.CreateBlock("successBlock", 0, True)))
Log(bolGranted)
Catch
Log(LastException.Message)
End Try
Return bolGranted
End Sub