borrar items repetidos

[lop7]

hola...
Copia esto en el boton que necesitas..... deberia funcionar

Private Sub Command1_Click()
Dim r As Integer
Dim s As Integer

Dim limite1, limite2 As Integer


limite1 = Text1.Text 'Poner aquí el elemento hasta el que hay que revisar
limite2 = Text2.Text 'el final del rango... revisa que no este fuera del intervalo

limite1 = limite1 - 1

If limite1 > 0 And limite1 < limite2 Then

If limite2 > limite1 And limite2 < List1.ListCount - 1 Then
For r = limite1 To limite2
For s = r + 1 To limite2
If List1.List(r) = List1.List(s) Then
On Error Resume Next
List1.RemoveItem (s)
limite2 = limite2 - 1
End If
Next 's
Next 'r
End If
End If
End Sub

Saludos...
Nos vmos...