If FirstTime Then
bitbg.Initialize(File.DirAssets,"Rose2.jpg" )
' bitbg.Initialize(File.DirDefaultExternal,"test.png" )
pnl.Initialize("pnl")
Activity.AddView(pnl, 0, 0, 100%x, 85%y)
Dim rectDest As Rect
rectDest.Initialize(0, 0, pnl.Width, pnl.Height)
cvs.Initialize (pnl)
cvs.DrawBitmap(bitbg, Null, rectDest)
cvs.DrawText ("test", 120dip, 120dip, Typeface.DEFAULT_BOLD, 50, Colors.Blue, "LEFT")
Dim out As OutputStream
out=File.OpenOutput (File.DirDefaultExternal,"test.png",False)
' test
' out=File.OpenOutput (Main.outdir,"test.png",False)
cvs.Bitmap.WriteToStream (out,100,"PNG")
out.Close
End If