Slette alt i et listview

Jeg har brug for at tømme alt i et listview når jeg trykker på en knap, jeg har foreløbig flg. kode, men den giver bare en 'index out of bounds' fejl:

Private Sub cmdRemove_Click()
For i = 1 To lstRedirect.ListItems.Count
  lstRedirect.ListItems.Remove i
Next i
End Sub

Håber der er en der kan se fejlen, eller ved hvordan man nemt fjerne ALT der står i et listview, selvfølgelig foruden columnheaders...

Mvh. Morten