Как воспроизводить два звука одновременно и регулировать их громкость? - VB

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

Как воспроизводить два звука одновременно и регулировать их громкость? Например, звучит в игре shoot.wav после события Form_MouseDown, и при этом происходит событие Image1.Click (игрок попал по врагу) и звучит звук pain.wav, то последний закрывает первый звук. Это не очень хорошо звучит. Ещё хуже, когда я делаю звук фоновой звук (вроде шума леса, где все стрельба происходит), то после первого выстрела он пропадает. А нужно, чтобы он был постоянен, т.е. если даже сам файл был бы длительностью 5 секунд, он повторялся (For i=1 To 10000000 сделать?) и во время выстрела лишь делался тише. Использую такой код:

                    Листинг программы
                
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
sndPlaySound App.Path & "\sounds\shoot.wav", &H1 Or &H2

Решение задачи: «Как воспроизводить два звука одновременно и регулировать их громкость?»

textual
                            Листинг программы 
                        
Const cS As Integer = 5