Sub TextToBitmapDrawable(s 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 BitmapDrawable
Dim bmp As Bitmap
Dim cvs As Canvas
Dim bmpd As BitmapDrawable
bmp.InitializeMutable(iWidth * 100dip / 100, iHeight * 100dip / 100)
cvs.Initialize2(bmp)
Dim h As Double = cvs.MeasureStringHeight(s, TF, FontSize)
cvs.DrawText(s, bmp.Width / 2 + iHorizontalAdjust, bmp.Height / 2 + h / 2 + iVerticalAdjust, _
TF, FontSize, lFontColour, strAlignment)
bmpd.Initialize(bmp)
Return bmpd
End Sub