why won't this remove the items from list2.

Private Sub Command1_Click()
Dim i As Integer

For i = 0 To List1.ListCount - 1
list2.RemoveItem i

Next i


End Sub