Sub RiempieClvSoci
For Each Socio As String In lstSoci
clvSoci.Add(CreaRigaCLVSoci(Socio,False, clvSoci.AsView.Width, 40dip),"")
Next
End Sub
Sub CreaRigaCLVSoci(Text As String, Checked As Boolean,Width As Int, Height As Int) As Panel
'Creo un pannellino per ogni socio. Il pannellino avrà al suo interno il layout "CellItem"
'composto da una label per il nome e una check per la selezione dell'item
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("CellItem")
LblNome.Text = Text
ChkNome.Checked=Checked
Return p
End Sub