VB播放声音文件

将下列语句写在“通用”里面：
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Const SND_ASYNC = &H1'或Const SND_SYNC = &H0 前者播放文件并立即返回程序，后者播放完文件后才返回程序。
在程序中运行：
Returnvalue = sndPlaySound("d:\我的文档\彭文明\自编程序\ding.wav", SND_SYNC)'（SND_SYNC 或SND_ASYNC)

如：
通用：
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1

Private Sub Command2_Click()
Returnvalue = sndPlaySound("d:\我的文档\彭文明\自编程序\ding.wav", SND_ASYNC)
End Sub