Obtendo o valor do item selecionado em uma ListBox

'Este exemplo mostra como obter o item selecionado
'em uma ListBox

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
    'obtém o item selecionado
    If ListBox1.SelectedIndex > -1 Then
      Dim sel As String = ListBox1.SelectedItem.ToString()
      MsgBox("O item selecionado é: " & sel)
    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