Allora ti occorre una cosa del genere
codice:If TextBox1.Text.Length > 0 Then Dim bTrovata As Boolean = False For Each myItem In ListBox1.Items If TextBox1.Text = myItem Then bTrovata = True Exit For End If Next If bTrovata = False Then ListBox1.Items.Add(TextBox1.Text) End If End If![]()