Public Sub Text2BMP(ImgText As String, OriginX As Int, OriginY As Int, font As String, FontSize As Int) As Bitmap
BitmapTxtToImg.InitializeMutable(180dip, 40dip)
Dim CustomFont As Typeface = Typeface.LoadFromAssets(font)
Dim CanvasImage As Canvas
CanvasImage.Initialize2(BitmapTxtToImg)
CanvasImage.DrawText(ImgText, OriginX, OriginY, CustomFont, FontSize, Colors.RGB(0, 0, 0), "CENTER")
Return CanvasImage.Bitmap
End sub