Tal vez te sirva ese codigo de ejemplo.
Option Explicit
Const SND_SYNC = &H0 'Modo síncrono. La función no retorna
'hasta que la música finalice.
Const SND_ASYNC = &H1 'Modo asíncrono. La función retorna una
'vez iniciada la música (sonido en
'background).
Const SND_NODEFAULT = &H2 'Si no se puede ejecutar el fichero
'especificado, silencio (no tocar el
'fichero por omisión)
Const SND_LOOP = &H8 'La música seguirá sonando repetidamente
'hasta que la función PlaySound sea
'llamada de nuevo con un valor nulo como
'nombre de fichero.
Const SND_NOSTOP = &H10 'Si hay un fichero ejecutándose, no
'interrumpirlo.
'PlaySound es una función de la API de Windows
'que permite ejecutar ficheros .wav.
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Música_Click()
Dim Id As Integer
ChDir App.Path
Id = PlaySound("tada.wav", 0&, SND_ASYNC Or SND_NODEFAULT Or SND_NOSTOP)
If Id = 0 Then
MsgBox ("No se puede reproducir el fichero")
End If
End Sub
Suerte
Arnaldo.
