Galhano //127.0.0.1

Dim Item As ListItem
For Each Item In cbl1.Items
If Item.Selected = True Then
‘Your Code
Else
‘Your Code
End If
Next