Sto realizzando una funzione "cerca" simile a quella del blocco note (modifica=>trova).
In pratica ho un ComboBox che carica tutti gli Items di un ListBox, contenuto su un'altra form.
Ho una TextBox dove scrivere la "parola chiave" da cercare e un Button con il seguente codice:

codice:
Dim PO As Integer = 0
        For i = 0 To ComboBox1.ItemHeight - 1
            Try
                ComboBox1.SelectedIndex = i
            Catch
            End Try
            Dim str As String = ComboBox1.Text
            If str.Contains(TextBox1.Text) Then
                MsgBox("è contenuto nell'index: " & i)
                ComboBox2.Items.Add(ComboBox1.Items(i))
                ComboBox1.Items.Remove(i)
                PO += 1
            Else
            End If
        Next
        If PO = 0 Then
            MessageBox.Show("Not found")
        End If
Il Button come risultato in caso di parola chiave trovata in qualche Item: aggiunge l'Item trovato al ComboBox2...

Errori riscontrati
-In pratica non mi considera nella ricerca alcuni Item (dal 14° in poi, sono 44 gli Items...)