For i = 0 To li.Size - 1
Dim item As String = li.Get(i)
CLV1.Add(CreateItem(item), i)
Next
Private Sub CreateItem(Text As String) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 100dip, 36dip)
p.LoadLayout("cell") 'a panel with a label inside
Dim p1 As Panel = p.GetView(0)
Dim lb As Label = p1.GetView(0)
Dim xlbl As B4XView = lb
fnt = xlbl.Font
lb.Text = Text
Dim TextWidth As Int = MeasurementCanvas.MeasureText(Text, fnt).Width
p.SetLayoutAnimated(0, 0, 1dip, TextWidth + 10dip, 36dip)
p1.Width = TextWidth + 8dip
Return p
End Sub