Foros del Web - Contar items de un listbox

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - Contar items de un listbox (http://www.forosdelweb.com/f69/contar-items-listbox-391235/)

Contar items de un listbox

Hola quiero saber como hago para contar los items que hay en total en un listbox pero sin contar los repetidos, (sin necesidad de borrar los repetidos para contar)

por ejemplo si tengo

A-B-C-D-A-B

me tendria que contar 4 solamente: A, B, C y D, porque los otros dos estan repetidos y no cuentan

¿¿como puedo hacer??

desde ya muchas gracias, chau

Por Favor Es Urgente Necesito Que Me Ayuden Con Esto

Ya Busque En Las Faq Pero No Hay Nada

Gracias

No se, se me ocurre, puede que haya otras formas mas fáciles:

Código:

    Dim elemento() As String

    Dim i As Long

    Dim e As Long

    Dim YaEsta As Boolean

    Dim ElementosSinRepetir As Long

    

    ReDim elemento(0)

    

    elemento(UBound(elemento)) = List1.List(i)

    

    For i = 1 To List1.ListCount - 1

        

        YaEsta = False

    

        For e = 0 To UBound(elemento)

        

            If elemento(e) = List1.List(i) Then

            

                YaEsta = True

                Exit For

                

            End If

            

        Next

        

        If YaEsta = False Then

        

            ReDim Preserve elemento(UBound(elemento) + 1)

            elemento(UBound(elemento)) = List1.List(i)

        

        End If

            

    Next

    

    ElementosSinRepetir = UBound(elemento) + 1

    

    MsgBox ElementosSinRepetir

Espero que no sea tarde y que te sirva
Un saludo