non mi funziona cmq per lui i() è sempre uguale a 0 e quindi mi aggiunge sempre una riga.
codice:
 Dim i() As ListViewItem = frmfondo.listaportieri.find("buffon", False)
        If i.Length > 0 Then
            msgbox ("Già acquistato")
            Exit sub
         else
            msgbox(ottimo acquisto")
        End If
questo è il tuo esempio riportato modificato per me ma non va cmq è sempre zero il valore. come se non trovasse mai il giocatore.
ho provato anche questo

codice:
       
 Dim nomegiocatore As String = Selezionato.SubItems(1).Text 'nome del giocatore
        Dim portieri = FrmFondo.ListaPortieri.Items.ContainsKey(nomegiocatore) 'restituisce un boolean
        If portieri = True Then
            MsgBox("già acquistato")
            Exit Sub
        Else
            MsgBox("ottimo acquisto")
        End If
....
in tutti e due i casi è come se non leggesse dalla mia lista giocatori.
in realtà io il nome nella lista lo vedo scritto.