Sub chk_CheckedChange(Checked As Boolean)
Dim index As Int
index = clv2.GetItemFromView(Sender)
Dim pnl As Panel
pnl = clv2.GetPanel(index)
Dim chk As CheckBox
chk = pnl.GetView(2)
Msgbox("Item value: " & clv3.GetValue(index) & CRLF & "Check value: " & chk.Checked, "")
End Sub