Dim cs As CSBuilder
cs.Initialize
cs.Font(Font.DEFAULT_BOLD).Color(Colors.White).Append("Esempio").Append(CRLF).Pop.Pop
cs.Color(Colors.Yellow).Append("View:" & Rnd(1,1000000)).PopAll
clv1.Add(CreateListItem(cs, "test", clv1.AsView.Width, 15%y, i), i)
....
Sub CreateListItem(Text As CSBuilder, name_image As String, Width As Int, Height As Int, record As Int ) As Panel