How to track the checkbox status of the check list box

Dim Count As Decimal = 0
If ChkCC.CheckedItems.Count > 0 Then
For Count = 0 To ChkCC.Items.Count - 1
If ChkCC.GetItemChecked(Count) = True Then
Count = Count + 1
End If
Next
End If
MsgBox(Count & " items checked.")