CloseCollection

'Questo codice, rimuove gli elementi in ordine inverso,

'ovvero dall'ultimo al primo (LIFO: Last In First Out)

Do While col.Count > 0
col.Remove col.Count
Loop
'Questo codice, rimuove gli elementi in ordine normale,

'ovvero dal primo all'ultimo (LILO: Last In Last Out)

'ed e' pio veloce della precedente routine

Do While col.Count > 0
col.Remove 1
Loop
'Altrimenti, e' possibile distruggere la collection,

'esegunedo l'operazione di svuotamento, in maniera molto

'piu' veloce delle precedenti:

Dim col As Collection
' Istanzio la collection per utilizzarla….

Set col = New Collection

' …distruggo la collection.

Set col = Nothing