Lista.Add(CreateListItem(bd, ElProd.Name, ElProd.Precio, Lista.AsView.Width, 120dip), ElProd.Code)
Lista.Add(CreateListItem(bd, ElProd2.Name, ElProd2.Precio, Lista.AsView.Width, 120dip), ElProd2.Code)
Lista.Add(CreateListItem(bd, ElProd3.Name, ElProd3.Precio, Lista.AsView.Width, 120dip), ElProd3.Code)
Sub CreateListItem(bmp As BitmapDrawable, name As String, prec As Double, Width As Int, Height As Int) As Panel
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, Width, Height)
    p.LoadLayout("CellItem")
    lblDesc.Text=name
    lblPrecio.Text="$ " & prec
    imgFoto.Background=bmp
    btnAdd.Text="AGREGAR"
    btnAdd.Visible=Agregar
    Return p
End Sub
Private Sub btnAdd_Click
    Dim Index As Int = Lista.GetItemFromView(Sender)
end sub