Detectando um duplo-clique em uma ListBox e exibindo o valor do item selecionado

'Este exemplo mostra como detectar um duplo-clique
'em uma ListBox e exibir o valor 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_DoubleClick(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      ListBox1.DoubleClick
    Dim valor As String = ListBox1.SelectedItem
    MsgBox("O valor selecionado na lista é: " & valor)
  End Sub
End Class