'Este exemplo mostra como detectar o evento
'SelectedIndexChanged em uma ListBox e exibir o índice 
'do item selecionado.

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")
  End Sub

  Private Sub ListBox1_SelectedIndexChanged(ByVal sender As _
       System.Object, ByVal e As System.EventArgs) Handles _
       ListBox1.SelectedIndexChanged
    Dim indice As Integer = ListBox1.SelectedIndex
    MsgBox("O índice selecionado na lista é: " & indice)
  End Sub
End Class