Dim C As Canvas
Dim Rect1 As Rect
Dim BMPM As Bitmap
BMPM.InitializeMutable(W,H)
C.Initialize2 (BMPM)
Rect1.Initialize(0,0,W-1,H-1)
C.DrawRect(Rect1,Colors.Transparent,True,100dip)
C.DrawText("Happy 2017", 0, 0,Typeface.DEFAULT,20,Colors.Green,"LEFT")
Dim Out As OutputStream
Out = File.OpenOutput (File.DirRootExternal , "test.png",False )
C.Bitmap.WriteToStream (Out,100,"PNG")
Out.Close