Sub Globals
Private clv2 As CustomListView
Private Label1 As B4XView
Private CheckBox1 As B4XView
Private ImageView1 As B4XView
End Sub
Sub CreateListItem(Text As String, Width As Int, Height As Int, bmp As B4XBitmap) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("CellItem")
Text = "Eni Spa"
Label1.Text = Text
ImageView1.SetBitmap(bmp)
Return p
End Sub