Ciao mgmg
grazie ancora, il codice gira ottimamente.
Puoi togliermi una curiosità ?
Se nel ciclo for inserisco :
For I = 0 To List1.ListCount - 1
invece del tuo
For I = List1.ListCount - 1 To 0 Step -1
il debug mi segnala un errore di run-time 381 'Indice della matrice di proprietà non valido'.
Francamente non comprendo il perchè : in cosa cambia analizzare un array in un senso anzichè nel senso opposto ?