item diferentes en listbox

[Quemero]

hola ¿como puedo hacer para saber si los ultimos 10 items de un listbox son diferentes?

o sea algo asi como if los 10 items son distintos then
msgbox "son diferentes"
end if

gracias

[jc_moty]

Lo que tendrias que hacer es comparar item por item, desde el numero que necesites, algo asi:

Código:

Dim contador As Integer
contador = 0
For i = (List1.ListCount - 10)  To List1.ListCount - 1
    If List1.List(i) = List1.List(i + 1) Then
        contador = contador + 1
    End If
Next i
If contador = 10 Then MsgBox "Son Iguales"

Saludos