Attribute VB_Name = "modSound"
'--------------------------------------
'源程序的版權(quán)屬原作者所有！
'所有源程序經(jīng)過玫瑰雪兒檢測，并保證通過。
'網(wǎng)名：玫瑰雪兒
'站點：rosesnow.onchina.net
'E_mail：zhaosihua@263.net
'歡迎訪問我的網(wǎng)站，并提出寶貴意見或建議
'--------------------------------------
Option Explicit

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

Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10

Public Sub PlaySound(strSound As String)

    Dim wFlags%
    
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    sndPlaySound strSound, wFlags%

End Sub