CustomListView1.Add(CreateListItem(Col(0) & Dummy, CustomListView1.AsView.Width, 45dip, i),Col(4))
Sub CreateListItem(Text As String, Width As Int, Height As Int, index as Int) As Panel
Dim p As B4XView = XUI.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("checkboxen")
Checkbox1.tag = index
Checkbox2.tag = index
Checkbox3.tag = index
Checkbox4.tag = index
Label1.Text = Text
Return p
End Sub
Private Sub Checkbox1_CheckedChange(Checked As Boolean)
Dim chk as Checkbox = Sender.As(Checkbox)
Dim index as Int = chk.Tag.As(Int)
' whatever
End Sub