Sub CreateImage(Text As String,Font As B4XFont) As Image
Dim Can As B4XCanvas
Dim V As B4XView = xui.CreatePanel("")
V.SetLayoutAnimated(0,0,0,120,120)
Can.Initialize(V)
Can.DrawRect(Can.TargetRect,xui.Color_White,True,1)
Can.DrawText(Text,Can.TargetRect.CenterX,Can.TargetRect.CenterY,Font,xui.Color_Black,"CENTER")
Can.Invalidate
Return Can.CreateBitmap
End Sub