listBox1.Items.AddRange(Directory.GetFiles("C:\WINDOWS\Media\", "*.wav"))
<DllImport("winmm.dll")> _ Public Shared Function PlaySound(ByVal lpszName As String, ByVal hModule As Integer, ByVal dwFlags As PlayFlags) As Boolean End Function
Private Sub listBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles listBox1.SelectedIndexChanged PlaySound(listBox1.SelectedItem.ToString(), 0, PlayFlags.Asynchronously) End Sub 'listBox1_SelectedIndexChanged