Private Sub Command1_Click()
Dim Cambio As Boolean, X As Byte, Y As Byte
Cambio = True 'Hace que lo de abajo se ejecute
Do While Cambio = True 'Se repetira hasta que no haga algun cambio
Cambio = False
For Y = 0 To (List1.ListCount - 1) ' Mira cada elemento desde el principio
For X = Y + 1 To (List1.ListCount - 1) 'Mira desde el siguiente elemento hasta el final
If List1.List(X) = List1.List(Y) Then 'Compara si son iguales
List1.RemoveItem (X) 'Como si lo son procede a borrar el segundo elemento
Cambio = True 'Le indica a vb que repita el proceso por otra posible repeticion
End If
Next X
Next Y
Loop
End Sub