Sub camara_PictureTaken(Data() As Byte)
Camara.StartPreview
Dim salida As OutputStream, picture As Canvas, Bmp As Bitmap, Recta As Rect
salida = File.OpenOutput(File.DirRootExternal,"foto.jpg",False)
salida.WriteBytes(Data,0,Data.Length)
salida.Close
Bmp.Initialize (File.DirRootExternal,"foto.jpg")
Recta.Initialize(10dip,10dip,110dip,110dip) 'this is only for test purposes
picture.DrawBitmap(Bmp, Null, Recta)
picture.DrawText("Test text stamp",200dip,200dip,Typeface.DEFAULT_BOLD,30,Colors.White,"LEFT")
picture.Bitmap.WriteToStream(salida,100,"JPEG")
...