Vabbè ho risolto uguale, ecco il codice :
If lstMailAddress.ListItems.Count <> 0 Then
While intI <= lstMailAddress.ListItems.Count
If (lstMailAddress.ListItems.Item(intI).Checked = True) Then
MsgBox lstMailAddress.ListItems.Item(intI)
MsgBox "Checkato"
Else
MsgBox lstMailAddress.ListItems.Item(intI)
MsgBox "non checkato"
End If
intI = intI + 1
Wend
End If
Grazie![]()