A.
Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 1 Next I End Sub
B.
Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.Removeltem 0 Next I End Sub
C.
Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.Removeltem I Next I End Sub
D.
Private Sub Command3_Click() For I=0 To List1.ListCount List1.RemoveItem 0 Next I End Sub