Private Sub CreateItem(imgg As String,descrizione As String, categoria As String, data As String, conto As String, importo As String, debitore As String) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, CvlMovTot.AsView.Width, 145dip)
p.LoadLayout("pag1SlideMenu")
AjustaImageView(ImageView1,imgg)
Label1Name_fruit.Text = descrizione
Label4Price.Text = importo & " €"
Label3kg.Text = data
Label2Calories.Text = categoria
lblconto.Text = conto
lbldebitor.Text = debitore
Swipe.Base.LoadLayout("clv_swipe")
If categoria <> "Generale" Then
lbldebitor.Visible = True
Else
lbldebitor.Visible = False
Label4Price.Left = 55%x
End If
AjustaImageView(ImageView1,imgg)
Return p
End Sub