Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Dim bytSound() As Byte
bytSound = LoadResData(vntResourceID, "WAVE")
sndPlaySound bytSound(0), SND_ASYNC Or SND_MEMORY