for x=1 to ...
ClvLocList.Add(CreateListItem(x, ClvLocList.AsView.Width, 90dip),p.loc)
Next
...
...
Private Sub CreateListItem(Text As String, Width As Int, Height As Int) As B4XView
Text=Text
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("loclistrow")
Return p
End Sub