Option Explicit
 
' API-Deklarationen für Soundausgabe
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, "XXXXXX")
  uFlags = SND_NODEFAULT Or SND_ASYNC Or SND_MEMORY
  Call sndPlaySound(bWave(0), uFlags)
End Sub