[VB6] Lista: indice e itemdata

[mgmg]

Senza ciclare no, ti posto ugualmente il codice:

    For i = 0 To list1.ListCount - 1
        If cerca = list1.list(i) Then
            Exit For
        End If
    Next i

Ciao