Private Sub Command1_Click()

List1.Clear

List2.Clear

Randomize

For i = 0 To 9

List1.AddItem Str(Int(Rnd * 90 + 10))

Next i

End Sub

Private Sub Command2_Click()

For i = 0 To List1.ListCount - 1

If List1.List(i) Mod 2 = 0 Then

List2.AddItem List1.List(i)

End If

Next i

For i = List1.ListCount - 1 To 0 Step -1

If List1.List(i) Mod 2 = 0 Then

List1.RemoveItem (i)

End If

Next i

End Sub