I need a less lagging Kill Duplicates in List

[Matthew Howle]

I have a list box with multiple items in the
thousands. The Kill Duplicates I made:

Dim DontKill As Long
Dim kill As Long
For DontKill = 0 To list.ListCount - 1
For kill = 0 To list.ListCount - 1
If LCase(list.list(DontKill)) Like LCase(list.list(kill)) And DontKill <> kill Then
list.RemoveItem (kill)
End If
Next kill
Next DontKill

Takes a long time to kill duplicates and then after 30
seconds or so, it'll freeze. I help on a Kill Duplicates
made for a massive numbers of items in a listbox.

[Edited by Matthew Howle on 04-29-2000 at 02:54 PM]