A-1 Bye-Bye ListBox Duplicates
Posted: 2002-06-01
By: ArchiveBot
Viewed: 80
Filed Under:
No attachments for this post
For Beginners. Get rid of unwanted listbox duplicates in a few very simple lines of code.
Original Author: twentyleafclover
Code
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
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.