国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

'/＊聲明API及常量＊/
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" ( _
    ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long
'同步播放，即在播放 WAV 文件時(shí)，播放完畢后將控制權(quán)轉(zhuǎn)移到當(dāng)前應(yīng)用程序
Private Const SND_SYNC = &H0
'異步播放，即在播放 WAV 文件時(shí)，不論當(dāng)前是否播放完畢，立即將控制權(quán)轉(zhuǎn)移到當(dāng)前應(yīng)用程序
Private Const SND_ASYNC = &H1

'/＊定義通用過(guò)程＊/
Private Sub PlayWav(sFileName As String)
    Call sndPlaySound(sFileName, SND_ASYNC)
End Sub

'/＊調(diào)用示例＊/
Private Sub Command1_Click()
    PlayWav ("C:\WINDOWS\Media\ding.wav")
End Sub