Sub cam_PictureTaken (Data() As Byte)
cam.StartPreview
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, aktCamPatId&".jpg", False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
cam.Release
ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, aktCamId&".jpg"), True)
End Sub