Sub CreateLabel(Label As Label, Text1 As String, Text2 As String) As B4XBitmap
Dim cs As CSBuilder
cs.Initialize.Typeface(Typeface.FONTAWESOME).Size(30).Append(Text1).Pop.Append(CRLF).Size(10).Append(Text2).Alignment("ALIGN_CENTER").PopAll
xlbl = Label
xlbl.Text = cs
xlbl.TextColor = xui.Color_RGB(105, 105, 105)
Return xlbl.Snapshot
End Sub