A-1 Bye-Bye ListBox Duplicates
For Beginners. Get rid of unwanted listbox duplicates in a few very simple lines of code.
Rate A-1 Bye-Bye ListBox Duplicates
(6(6 Vote))
Dim j As Integer
j = 0
Do While j < List1.ListCount
List1.Text = List1.List(j)
If List1.ListIndex <> j Then
List1.RemoveItem j
Else
j = j + 1
End If
Loop
End Sub
A-1 Bye-Bye ListBox Duplicates Comments
No comments yet — be the first to post one!
Post a Comment