bueno pana esto hacia lo siguiente....
buscaba que items se repetia en una lista dandole el limite que el queria
y los que encontraba en ese rango los eliminaba es para que agarres la idea de lo que puedes hacer
Código:
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
bueno se que te ayudara en algo
saludos...