For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
MsgBox "selezionato"
else
MsgBox "non selezionato"
End If
Next i
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
MsgBox "selezionato"
else
MsgBox "non selezionato"
End If
Next i
prude il dito, lui sdraiato
ha giocato a guardie e ladri col ladro sbagliato