KillCollection

'Questo codice rimuove gli elementi con la modalita' LIFO

'(last-in-first-out: l'ultimo dentro, il primo fuori):

Do While col.Count > 0
col.Remove col.Count
Loop

'Questo codice rimuove gli elementi con la modalita' FIFO

'(first-in-first-out:il primo dentro, il primo fuori)

'ed e' molto piu' veloce:

Do While col.Count > 0
col.Remove 1
Loop

'Impostare il valore della collection a Nothing comunque

'il modo piu' rapido:

Dim col As Collection
' Alloca la collection e la usa.

Set col = New Collection

' Cancella la collection.

Set col = Nothing