【VB技巧】VB播放wav资源文件

VB播放wav资源文件:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1          '将控制权立即转让给程序
Private Const SND_NODEFAULT = &H2 '不使用缺省声音
Private Const SND_MEMORY = &H4     '指向一个内存文件
Private Const SND_LOOP = &H8            '循环播放
Dim B() As Byte

Private Sub Form_Load()
B = LoadResData(101, "CUSTOM")
sndPlaySound B(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_LOOP
End Sub