如何用VB写程序播放RES中的WAV文件，请高手指点，凡乱复制帖子回答的一率不给小旗

我试过两个API函数，一个是playsound，另一个是sndPlaySound。这两种方法都不提示错误，但没有声音。用其它软件（比方说QQ、播放器等）就有声音，而且把程序拷到别人的电脑上也没有声音，应该不是个别电脑的问题。

具体代码如下：
1、
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Dim lPress() As Byte
lPress = LoadResData(102, "WAVE")
PlaySound lPress(0), 0&, &H4
2、
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As string, Byval uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4

Dim Toms() As Byte
Toms=LoadResData("HAHA","WAVE")
sndPlaySound Toms(0), SND_MEMORY Or SND_ASYNC
这位哥们也太不敬业了吧，什么目录啊，都说是从RES里读取了。坚决不给小旗

如何用VB写程序播放RES中的WAV文件，请高手指点，凡乱复制帖子回答的一率不给小旗 如何用VB写安装程序 如何用vb排序写程序 如何用VB写一个QQ自动登陆程序? 如何用VB写一个合并文件的程序呢? 如何用OD来修改VB写的程序？ 如何用VB写一个简单的抽数程序 如何用VB编个小程序 如何用vb编辑播放器？？ 如何用VB播放1234567(音符)