Sub Camera1_PictureTaken (Data() As Byte)
camEx.StartPreview 'restart preview
Dim in As InputStream
in.InitializeFromBytesArray(Data, 0, Data.Length)
Dim bmp As Bitmap
bmp.Initialize2(in)
CallSubDelayed2(ac_podbyda, "getphoto", bmp)
CallSubDelayed2(ac_podbyda, "getphotobyte", Data)
Activity.Finish
End Sub