Dim twolinebitmap As B4XBitmap = CreateBitmap("Top Line" & CRLF & "Bottom Line" )
Sub CreateBitmap(text As String) As B4XBitmap
Dim xui As XUI
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 50dip, 30dip)
Dim c As B4XCanvas
c.Initialize(p)
c.DrawRect(c.TargetRect, xui.Color_Transparent, True, 0)
c.DrawText(text, c.TargetRect.CenterX, c.TargetRect.CenterY + 4dip, xui.CreateDefaultBoldFont(10), xui.Color_Yellow, "CENTER")
c.Invalidate
Return c.CreateBitmap
End Sub