Sub btnGetChecked_Click
Dim i , nChecks As Int
'get the number of rows/checkboxes
nChecks = clv1.GetSize
'loop thru and get state of check boxes
For i = 0 To nChecks -1
Dim pnl As Panel
pnl = clv1.GetPanel(i)
Dim chk As CheckBox
chk = pnl.GetView(2)
If chk.Checked = True Then
Msgbox ("Checkbox Number " &(i +1) & " is Checked ", "")
End If
Next
End Sub