用VB做一个点击按钮播放声音的文件

'全局代码，最上面 Private Const SND_ASYNC = &H1 '这个可以按一下就开始播放，不用等第一个播放完 Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long '下面 这个是代码部