如何采用多线程来同时播放多个声音文件（*.wav）,请大家帮忙？

Question

为了大家能给我诊断以下我把源代码给大家：
模块声明：
Option Explicit
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  
   Global Const SND_SYNC = &H0
   Global Const SND_ASYNC = &H1
   Global Const SND_NODEFAULT = &H2
   Global Const SND_LOOP = &H8
   Global Const SND_NOSTOP = &H10
command1用来播放一个声音文件：
Private Sub Command1_Click()
Soundname$ = "E:\sss\gusheng\Cymbal.wav"
    wFlags% = SND_ASYNC Or SND_NODEFAULT Or SND_LOOP
    x% = sndPlaySound(Soundname$, wFlags%)
End Sub
command2用来播放另一个声音文件：
Private Sub Command2_Click()
Soundname$ = "E:\sss\gusheng\Hitom.wav"
    wFlags% = SND_ASYNC Or SND_NODEFAULT Or SND_SYNC
    x% = sndPlaySound(Soundname$, wFlags%)
End Sub
依次类推，一共需要播放6个这样的声音文件。

Answer 1

为了大家能给我解决这个问题，小弟特把源码提供给大家：
1。模块声明：Option Explicit
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  
   Global Const SND_SYNC = &H0
   Global Const SND_ASYNC = &H1
   Global Const SND_NODEFAULT = &H2
   Global Const SND_LOOP = &H8
   Global Const SND_NOSTOP = &H10
2.command1用来播放一个声音文件：
Private Sub Command1_Click()
Soundname$ = "E:\sss\gusheng\Cymbal.wav"
    wFlags% = SND_ASYNC Or SND_NODEFAULT Or SND_LOOP
    x% = sndPlaySound(Soundname$, wFlags%)
End Sub
3.command2用来播放另一个声音文件：
Private Sub Command2_Click()
Soundname$ = "E:\sss\gusheng\Hitom.wav"
    wFlags% = SND_ASYNC Or SND_NODEFAULT 
x% = sndPlaySound(Soundname$, wFlags%)
End Sub依次类推，一共6个这样的文件。请大家帮我解决！谢了先。