Sub CreateBitmap(text As String) As B4XBitmap
Dim pnl As B4XView = xui.CreatePanel("")
pnl.SetLayoutAnimated(0, 0, 0, 300dip, 100dip)
Dim cvs As B4XCanvas
cvs.Initialize(pnl)
Dim CenterX = pnl.Width / 2, CenterY = pnl.Height / 2 As Float
Dim fnt As B4XFont = xui.CreateDefaultFont(15)
Dim r As B4XRect = cvs.MeasureText(text, fnt)
Dim BaseLine As Int = CenterY - r.Height / 2 - r.Top
cvs.DrawText(text, CenterX, BaseLine, fnt, xui.Color_Black, "CENTER")
Dim b As B4XBitmap = cvs.CreateBitmap
Return b.Crop(CenterX - r.Width / 2, CenterY - r.Height / 2, r.Width, r.Height)
End Sub