Sub CreateListItem(Text As String, Width As Int, Height As Int, riga As Int, passa_id As String ) As Panel
Dim p As Panel
p.Initialize("")
#if B4A
p.SetLayout(0, 0, Width, Height)
#else if B4i
p.SetLayoutAnimated(0, 1, 0, 0, Width, Height) 'set the size before the layout is loaded
#End If
p.LoadLayout("lay_cap_clv")
lbl_cap.Text = Text
Return p
End Sub