Sub Button1_Click
Dim index As Int = clv2.GetItemFromView(Sender)
Dim pnl As B4XView = clv2.GetPanel(index)
Dim lbl As B4XView = pnl.GetView(0)
Dim chk As B4XView = pnl.GetView(2)
lbl.Text = "Clicked!"
'Msgbox("Item value: " & clv2.GetValue(index) & CRLF & "Check value: " & chk.Checked, "")
Dim chk1 As B4XView = pnl.GetView(2)
Log("Checked = " & chk1.Checked)
Dim checkedItems As List
checkedItems.Initialize
For i = 0 To clv2.GetSize - 1
Dim p As B4XView = clv2.GetPanel(i)
Dim chk As B4XView = p.GetView(2)
If chk.Checked Then
checkedItems.Add(clv2.GetValue(i))
End If
Next
Log("Checked items: " & checkedItems)
End Sub