Fjern redundante data fra ListBox

Det skal være sub
Du kan jo lave en knap der fx. hedder fjern.
Under fjern knappen kan du give den denne funktion.

Private Sub Command1_Click()
List1.RemoveItem List1.ListIndex
End Sub

I ListBox properties window kan du sætte Multiselect til 1-Simple, så kan du markere flere end et navn og så trykke på fjern knappen.

Håber det var til noget hjælp.

Nej nej, altså det skal være en Sub/Func som kan køres efter der er læst en masse data i en ListBox. Den skal kigge alle data i ListBox'en igennem, og dem som der f.eks. er 3 af, skal den slette de to.

Prøv tjek denne her, måske kan det hjælpe:

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=5298&lngWId=1

Tak

? der er ikke nogen accepter-knap?

On Error GoTo lol
For i = 0 To List1.ListCount - 1
DoEvents
List1.ListIndex = i
Dim x As String
Dim xa As String
Dim xaa As String
Dim xx As String
x = List1.List(i)
xx = List1.List(i + 1)
'trims all spaces in a the current item
xa = trimtext(x)
xaa = trimtext(xx)
'if dupe is found removes it
If LCase(xa) = LCase(xaa) Then
DoEvents
List1.RemoveItem i
i = i - 1
End If
Next i
MsgBox "Done!"
Exit Sub
lol:
MsgBox "Done!"
Exit Sub