Поиск в ListBox при наборе искомого в TextBox

        Dim i As Integer = ListBox2.FindString(TextBox5.Text)
        ListBox2.SelectedIndex = i
        If TextBox5.Text = "" Then
            ListBox2.SelectedIndex = -1
        End If

    Private Sub TextBox5_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox5.TextChanged
        If TextBox5.Text = "" Then
            ListBox2.SelectedItem = Nothing
        Else
            For i = 0 To ListBox2.Items.Count - 1
                If ListBox2.Items(i).ToString.ToUpper.Contains(TextBox5.Text.ToUpper) Then
                    ListBox2.SelectedIndex = i
                    Exit For
                End If
            Next
        End If
    End Sub

        Dim s = ListBox1.Items
        Dim Zapros = From It In s
                     Where It Like "*" & TextBox1.Text & "*"
                     Order By s
                     Select It
 
        ListBox2.Items.Clear()
 
        For Each Item In Zapros
            ListBox2.Items.Add(Item)
        Next

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Spisok.AddRange({"Вася", "Катя", "Люся", "Надя"})
    End Sub
 
    Private Spisok As New List(Of String)
 
    Private Sub TextBox1_TextChanged_1(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim Zapros = From Item In Spisok
                     Where Item Like "*" & TextBox1.Text & "*"
                     Order By Spisok
                     Select Item
 
        ListBox1.Items.Clear()
        If Zapros.Count > 0 Then
            For Each Item In Zapros
                ListBox1.Items.Add(Item)
            Next
        End If
 
    End Sub

Dim Zapros = From It As String In s
                     Where It.ToLower Like "*" & TextBox1.Text.ToLower & "*"
                     Order By s
                     Select It

Listbox1.selectedIndex=Listbox1.FindString(TextBox1.text.Trim)

 Private Sub TextBox5_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox5.TextChanged
        If TextBox5.Text = "" Then
            ListBox2.SelectedItem = Nothing
        Else
            For i = 0 To ListBox2.Items.Count - 1
                If ListBox2.Items(i).ToString.ToUpper.Contains(TextBox5.Text.ToUpper) Then
                    ListBox2.SelectedIndex = i
                    Exit For
                End If
            Next
        End If
    End Sub

Array.Sort(ss)
ListBox1.DataSource = ss

ComboBox1.DataSource = ss
ComboBox1.DropDownStyle = ComboBoxStyle.DropDown
ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged      
       Dim i As Integer = ListBox2.FindStringExact(TextBox1.Text)
        ListBox2.SelectedIndex = i
        If TextBox1.Text = "" Then
            ListBox2.SelectedIndex = -1 
        End If
    End Sub

If ListBox2.Items(i).ToString.ToUpper.Contains(TextBox5.Text.ToUpper) Then

Private nd() As DRW.Node
Private snd As DRW.Node
‘…
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim ss(nd.Length - 1) As String
    For i = 0 To nd.Length - 1
        ss(i) = nd(i).Id
    Next
    Array.Sort(ss)
    ListBox1.DataSource = ss
End Sub 
‘…
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    snd = nd.Where(Function(nnd) nnd.Id = ListBox1.SelectedItem).ToArray(0)
End Sub