Pesquisando o retornando o índice de um item na ListBox

'Este exemplo mostra como pesquisar um valor na
'ListBox e retornar sua posição

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

    'pesquisa um item na ListBox
    Dim pos As Integer = ListBox1.Items.IndexOf("São Paulo")
    If pos > -1 Then
      MsgBox("O item pesquisado foi encontrado na posição " _
        & pos)
    Else
      MsgBox("O item pesquisado não foi encontrado")
    End If

  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    'Adiciona quatro itens à lista
    ListBox1.Items.Add("Goiânia")
    ListBox1.Items.Add("São Paulo")
    ListBox1.Items.Add("Cuiabá")
    ListBox1.Items.Add("Rio de Janeiro")
  End Sub
End Class