camEx.SavePictureToFile(Data, PicDir, PicFilename)
Dim CVS As Canvas
Dim IV As ImageView
IV.Bitmap = LoadBitmap(PicDir,PicFilename)
IV.Visible = True
CVS.Initialize(IV)
CVS.DrawText("This is the date", 11dip,21dip,Typeface.DEFAULT,14,Colors.Black,"LEFT")
CVS.DrawText("This is the date", 10dip,20dip,Typeface.DEFAULT,14,Colors.Yellow,"LEFT")
Dim Out As OutputStream
Out = File.OpenOutput(PicDir, PicFilename, False)
CVS.Bitmap.WriteToStream(Out, 90, "JPEG")
Out.Close