Sub btnTakePicture_Click
Try
Dim no As NativeObject = Me
no.RunMethod("disableSound", Null)
llc.TakePicture
For i = 1 To 50
no.RunMethod("disableSound", Null)
Sleep(10)
Next
Catch
Log(LastException)
End Try
End Sub
#if OBJC
- (void)disableSound {
AudioServicesDisposeSystemSoundID(1108);
}
#End If
This is a hack however it works perfect here in release mode and almost perfect in debug mode.