Código completo: Como efetuar uma pesquisa incremental em uma ListBox

'Este exemplo mostra como efetuar uma pesquisa
'incremental em uma ListBox. Para testá-lo, coloque
'um TextBox e uma ListBox em um formulário e defina
'o evento TextChanged do TextBox como mostrado abaixo.

Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
    'adiciona alguns itens na ListBox
    ListBox1.Items.Add("Visual Basic")
    ListBox1.Items.Add("VB.NET")
    ListBox1.Items.Add("Visual Studio")
    ListBox1.Items.Add("Delphi")
    ListBox1.Items.Add("DHTML")
    ListBox1.Items.Add("Java")
    ListBox1.Items.Add("JavaScript")

    'classifica a lista em ordem alfabética
    ListBox1.Sorted = True
  End Sub

  Private Sub TextBox1_TextChanged(ByVal sender As _
       System.Object, ByVal e As System.EventArgs) Handles _
       TextBox1.TextChanged
    Dim texto As String = TextBox1.Text
    'pesquisa o texto na ListBox
    Dim pos = ListBox1.FindString(texto)
    'seleciona o item encontrado
    If pos <> -1 Then
      ListBox1.SetSelected(pos, True)
    End If
  End Sub
End Class