For i = 1 To 20
Dim NumberOfItems As Int = Rnd(1, 20)
Dim p As B4XView = CreateItem(Rnd(0xFF000000, 0xFFFFFFFF), "Item #" & i, NumberOfItems * 52dip + 60dip + 2dip)
clvSidebar.Add(p, expandable.CreateValue(p, "some value"))
For j = 1 To NumberOfItems
CustomListView1.AddTextItem("Subitem #" & j, j)
Next
Next