'try this

Private Sub Command1_Click()
Dim i As Integer
Form1.Show
For i = 0 To List1.ListCount - 1
List2.RemoveItem 0
Next i
End Sub