Private Label1 As B4XView
Private Label2 As B4XView
Private CustomListView1 As CustomListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("xclv")
Dim xui As XUI
For i=0 To 49
Dim p As B4XView=xui.CreatePanel("")
p.SetLayoutAnimated(100,0,0,100%x,40dip)
p.LoadLayout("LisLoad")
Label1.Text=i
Label2.Text="The Item No is : " & i
CustomListView1.Add(p,"")
Next
End Sub