Sub CreateListItem(c As carSearch, Width As Int, Height As Int) As B4XView
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("vehicleLV")
schLblModel.Text = c.CModel
schLblKeyway.Text = c.CKey
schLblChip.Text = c.CChip
Dim r As Reflector
For Each v As B4XView In p.GetAllViewsRecursive
r.Target = v
r.SetOnTouchListener("lvModels_Touch")
Next
Return p
End Sub