Pesquisando um item na ListBox usando o método Contains

'Este exemplo mostra como pesquisar um valor na
'ListBox usando o método Contains

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
    If ListBox1.Items.Contains("São Paulo") Then
      MsgBox("O item pesquisado foi encontrado na lista")
    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