remove duplicates from listbox vb6?

Date: Thu-May-11-2017-
Response
0
Here is how i do it, first i loop trough listbox on each addition and when adding check if the item is already there if not i will add into list

For i = 0 To UBound(strArray)
If strArray(0) <> "" Then
substr() = Split(strArray(0), "#")
foundfromlist = False
    For iu = 0 To List2.ListCount
    If substr(3) = List2.List(iu) Then
    foundfromlist = True
    Exit For
    End If
    Next
If foundfromlist = True Then
List2.AddItem substr(3)
End If
End If
Next
End Sub

[d] By: enthalpies
Date: Thu-May-11-2017
Response
What is 1 + 100

Just Updated::