Как прервать воспроизведение звукового файла

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Const SND_ALIAS = &H10000       ' Воспроизведение звуков Windows,определенных в WIN.INI или в реестре (напр. SystemStart, Asterisk, и т.д.).
Const SND_ASYNC = &H1           ' Асинхронное воспроизведение.
Const SND_FILENAME = &H20000    ' Запуск указанного файла.
Const SND_LOOP = &H8            ' Циклическое воспроизведение до следующего вызова sndPlaySound lpszSoundName = "". Можно также использовать SND_ASYNC.
Const SND_NODEFAULT = &H2       ' Не запускать звук по умолчанию Windows, если указанный звук не может быть найден.
Const SND_NOSTOP = &H10         ' Не прекращать воспроизведение любого запущенного звука.
Const SND_NOWAIT = &H2000       ' Не ждать,если драйвер занят.
Const SND_SYNC = &H0            ' Синхронное воспроизведение(значение по умолчанию). Ждать, пока звук не закончил играть перед продолжающимся выполнением программы.
 
 
Public Function fnPlaySound(sPath As String) As Boolean
    fnPlaySound = PlaySound(sPath, ByVal 0&, SND_ASYNC Or SND_NODEFAULT)
End Function
Public Function fnStopPlaySound() As Boolean
    PlaySound 0&, 0&, SND_NODEFAULT
End Function

Public Sub StopPlaySound()
    Dim s As String
    PlaySound s, ByVal 0&, SND_PURGE
End Sub

PlaySound s, ByVal 0&, 0

PlaySound "", ByVal 0&, 0