'Como ejecutar un archivo de sonido .WAV desde VB

'1. Crear un nuevo proyecto en VB por defecto será Form1
'2. Añadir el siguiente codigo a General Declarations de form1


Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"   (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_NODEFAULT = &H2

'3. Añadir un control Command Button al Form1. Command1 por defecto.
'4. Añadir el siguiente codigo al evento Click de Command1:

Private Sub Command1_Click()
    Dim X As Long

    Rem indicar en "c:\demo\fichero.wav" el fichero por defecto

    X = sndPlaySound("c:\demo\fichero.wav", SND_SYNC Or SND_NODEFAULT)

End Sub