Sub CustomListView1_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
For Each i As Int In PCLV.VisibleRangeChanged(FirstIndex, LastIndex)
Dim item As CLVItem = CustomListView1.GetRawListItem(i)
Dim td As TestData=item.Value
Dim pnl As B4XView = XUI.CreatePanel("")
item.Panel.AddView(pnl, 0, 0, item.Panel.Width, 135dip)
'Create the item layout
pnl.LoadLayout("Item")
lbl_title.Text=td.title
lbl_description.Text=td.description
Next
End Sub