but it doesn't work
I think the code is:
Code:
Dim reminder As Double For i = 0 To (listone.Items.Count() - 1) If reminder Mod 2 = 0 Then listtow.Items.Add(listone.Items.Item(i)) Else listthree.Items.Add(listone.Items.Item(i)) End If Next End Sub
Leave a comment: