Sub CreateBitmap(text As String) As B4XBitmap
Dim xui As XUI
Dim p As B4XView = xui.CreatePanel("")
Dim colore As Int : colore=Colors.Red
Dim larg,alt As Int
Dim font As B4XFont
Dim c As B4XCanvas
font=xui.CreateDefaultFont(20) ' just used for getting a suitable size
larg=text.Length*font.Size
alt=font.Size
p.SetLayoutAnimated(0, 0, 0, larg, alt)
c.Initialize(p)
c.DrawRect(c.TargetRect,colore,False,2)
Return c.CreateBitmap
End Sub