Const SND_ASYNC = &H1 Shared Function _    PlaySound(ByVal lpszName As String, ByVal hModule As Integer, _    ByVal dwFlags As Integer) As IntegerEnd Function' Play a WAV file.'' fileName is a string containing the full path of the file.' If synchronousMode is true, the sound is played synchronously' Returns true if no errors occurredFunction PlayWAV(ByVal fileName As String) As Boolean    ' play the file asynchronously    PlayWAV = (PlaySound(FileName, 0, SND_ASYNC) = 0)End FunctionFunction PlayWAV(ByVal fileName As String, ByVal synchronousMode As Boolean) As _    Boolean    If synchronousMode Then        ' play the file synchronously        PlayWAV = (PlaySound(fileName, 0, 0) = 0)    Else        ' play the file asynchronously        PlayWAV = (PlaySound(fileName, 0, SND_ASYNC) = 0)    End IfEnd Function