...scusa
For i = 0 To List1.ListCount -1