' zunächst die benötigten API-Deklarationen
Private Declare Function sndPlaySound Lib "winmm" Alias _
  "sndPlaySoundA" (lpszSoundName As Any, _
  ByVal uFlags As Long) As Long
 
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
 
' WAVE aus Ressource-Datei abspielen
Public Sub WaveFromRes(ByVal ResID As Long)
  Dim bWave() As Byte
  Dim uFlags As Long
 
  bWave = LoadResData(ResID, "CUSTOM")
  uFlags = SND_NODEFAULT Or SND_ASYNC Or SND_MEMORY
  Call sndPlaySound(bWave(0), uFlags)
End Sub
 
Private Sub Command1_Click()
  WaveFromRes 101
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...