Private Declare Function PlaySound _
      Lib "WinMM.dll" Alias "PlaySoundA" ( _
      ByVal WaveFilename As String, _
      ByVal hModule As Integer, _
      ByVal dwFlags As Integer _
      ) As Integer
 
    Function PlayWave(ByVal WaveFileName As String) As Boolean
        ' Spielt eine Wave-Datei ab.
        Const SND_SYNC As Integer = &H0      ' Synchron abspielen
        Const SND_ASYNC As Integer = &H1     ' Asynchron abspielen
        Const SND_NODEFAULT As Integer = &H2 ' Standardklang nicht als
        ' Ersatz verwenden
        Const SND_MEMORY As Integer = &H4    ' Aus Speicher statt aus
        ' Datei abspielen (RES)
        Const SND_LOOP As Integer = &H8      ' Wiederholt abspielen
        If Dir(WaveFileName, FileAttribute.Hidden) = vbNullString Then
            ' Angegebene Wave-Datei wurde nicht gefunden
            Return False
        Else
 
 
            ' Wave-Datei wird abgespielt (soweit möglich)
            Return CBool(PlaySound(WaveFileName, 0I, SND_ASYNC Or _
              SND_NODEFAULT))
        End If
    End Function