[VB6]: Eliminare tutti gli elementi di una lista

[ax-site&site]

salve vorrei un suggerimento per svuotare tutti gli elementi di una lista...
ho provato così ma è troppo rude e non mi elimina mai il primo

ma non esiste un qualcosa tipo list1.removeall o simile?!?!?

If List1.ListCount > 0 Then
Do
List1.RemoveItem 1
Loop Until List1.ListCount = 1
End If 

grazie per l'aiuto