Sub Activity_Create(FirstTime As Boolean)
nested.Initialize(Activity)
nested.base.LoadLayout("1")
nested.CLV = CustomListView1
For i = 1 To 10
Dim Title As String = $"*** TITLE (${i}) ***"$
CustomListView1.AddTextItem(Title, "")
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 100%x, 200dip)
p.LoadLayout("Item")
FillInnerList (Title)
p.Tag = clvItem 'must set the Panel tag like this
CustomListView1.Add(p, "")
Next
End Sub
Sub FillInnerList (ParentTitle As String)
For x = 1 To 10
clvItem.AddTextItem($"Item #${x}"$, Array(ParentTitle, x))
Next
End Sub
Sub CLVItem_ItemClick (Index As Int, Value As Object)
Dim v() As Object = Value
Dim Title As String = v(0)
Dim Index As Int = v(1)
Log($"${Title}: ${Index}"$)
End Sub