check the CHECKEDINDICES property, you can use it's indices, check this little example:
[CODE=vb]Dim str1 As String = "Checked indices are: "
Dim i As Integer
For i = 0 To CheckedListBox1 .CheckedIndices .Count - 1
str1 = str1 & CheckedListBox1 .CheckedIndices (i).ToString & ", "
Next
MsgBox(str1)[/CODE]
Comment