Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0,0,0,Root.Width,20dip) 'We adjust the height of the list item later in the HeightChanged Event
p.LoadLayout("laychips")
CustomListView1.Add(p, -1) 'ide://goto?Layout=laychips
For i = 1 To 100 -1
AS_Chips2.ChipPropertiesGlobal.BackgroundColor = xui.Color_White
AS_Chips2.ChipPropertiesGlobal.TextColor = xui.Color_Black
AS_Chips2.AddChip("Test " & i, AS_Chips2.FontToBitmap(Chr(0xE0C8),True,30,xui.Color_Black),"")
Next
AS_Chips2.RefreshChips