Sub TextToBitmap(strText As String, FontSize As Float, lFontColour As Int, _
iWidth As Int, iHeight As Int, _
TF As Typeface, strAlignment As String, _
iVerticalAdjust As Int, iHorizontalAdjust As Int) As Bitmap
Dim bmp As Bitmap
Dim cvs As Canvas
bmp.InitializeMutable(iWidth * 100dip / 100, iHeight * 100dip / 100)
cvs.Initialize2(bmp)
Dim h As Double = cvs.MeasureStringHeight(strText, TF, FontSize)
cvs.DrawText(strText, bmp.Width / 2 + iHorizontalAdjust, bmp.Height / 2 + h / 2 + iVerticalAdjust, _
TF, FontSize, lFontColour, strAlignment)
Return bmp
End Sub