[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

[ax-site&site]

per eliminare il 1° mi è bastato modificare l'index da 1 -> 0

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

ma cmq non mi piace un granché...

esiste una funzione???

[Boolean]

più semplice di così si muore:

List1.Clear

ma sarebbe bastato F1 per scoprirlo

Boolean

[ax-site&site]

eheh grazie...