Attribute VB_Name = "SoundModule"
Option Explicit

Public Declare Function PlaySound Lib "Coredll" Alias "PlaySoundW" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_FILENAME = &H20000
Private Const SND_ASYNC = &H1

Public Sub JouerFichierWav(ByVal wFichierWav As String)
 
 Call PlaySound(wFichierWav, 0, SND_FILENAME)

End Sub

Public Sub JouerFichierWavAsync(ByVal wFichierWav As String)
 
 Call PlaySound(wFichierWav, 0, SND_FILENAME Or SND_ASYNC)

End Sub