borrar elementos repetidos

[Quemero]

Hola como hago para borrar los elementos repetidos de un listbox?

o sea que me los deje una sola vez

gracias

[piojoman]

Yo nombre al ListBox como Lista

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 (Lista.ListCount - 1) ' Mira cada elemento desde el principio
For X = Y + 1 To (Lista.ListCount - 1) 'Mira desde el siguiente elemento hasta el final
If Lista.List(X) = Lista.List(Y) Then 'Compara si son iguales
Lista.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
'Este proceso es lo que generalmente se conoce como "Busqueda del Menor"