Проиграть Звук Wav Асинхронно с другим звуком - VB

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
 
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
                        (ByVal lpszName As String, _
                         ByVal hModule As Long, _
                         ByVal dwFlags As Long) _
                        As Long
 
Private Const SND_ASYNC           As Long = (&H1)
Private Const SND_PURGE           As Long = (&H40)
 
Public Function PlaySoundWav(ByVal sPathFileName As String) As Long
     Dim sBufferPath           As String '?????????? ??? ???????? ???? ? ?????
     Dim lRetval                   As Long '?????????? ??? ????????
 
     sBufferPath = (sPathFileName) '??????????? ???? ??? ??????????
 
     If sBufferPath = ("") Then Exit Function '???? ???? ???????? ????? ?? ???????
 
     lRetval = PlaySound(sBufferPath, 0&, (SND_ASYNC Or SND_PURGE)) '??????????? ????
End Function

Сам код

                    Листинг программы
                
Call PlaySoundWav("C:\Sound\jump.wav")

Но при запуске другой звук останавливает как сделать чтобы не другой проигрываемый звук не осталавливался ? Вроде эта строка но как в итоге путь будет выглядеть ? (SND_ASYNC Or SND_PURGE)) И еще как громкость задасть или эффек

Решение задачи: «Проиграть Звук Wav Асинхронно с другим звуком»

textual
                            Листинг программы 
                        
Option Explicit
 
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub Form_Load()
    Call mciExecute("play file1")
    Call mciExecute("play file2")
End Sub