Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)
    ‘strFileName 要播放的文件名(带路径)
    ‘playCount 播放的次数
    ‘JianGe  多次播放时,每次的时间间隔
    If Len(Dir(strFileName)) = 0 Then Exit Sub
    If PlayCount = 0 Then Exit Sub
    If JianGe < 1000 Then JianGe ="1000
    DoEvents
    sndPlaySound strFileName, 16 + 1
    Sleep JianGe
    Call PlayWavFile(strFileName, PlayCount – 1, JianGe)
End Sub

Private Sub Form_Click()
    PlayWavFile "C:\aaa.wav", 1, 1000
End Sub