Dim bmp As Bitmap = LoadBitmap(File.DirAssets, "1.jpg")
Dim cvs As Canvas
Dim s as String = "Hello dog!"
bmp.InitializeMutable(iWidth * 100dip / 100, iHeight * 100dip / 100)
cvs.Initialize2(bmp)
Dim h As Double = cvs.MeasureStringHeight(s, Typeface.DEFAULT, FontSize)
cvs.DrawText(s, bmp.Width / 2, bmp.Height / 2 + h / 2, Typeface.DEFAULT, FontSize, lFontColour, "CENTER")