Sub Globals
Private clvLista 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("layMain")
Dim i As Int
For i = 1 To 5
clvLista.add(CreateListItem, "")
Next
End Sub
Sub CreateListItem() As B4XView
Dim p As B4XView
P = xui.CreatePanel("")
P.SetLayoutAnimated(0,0,0,100%x,100%y)
p.LoadLayout("layItem")
Return p
End Sub