<font color=green>' Allgemein Teil der Form</font>
Option Explicit
 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
  "sndPlaySoundA" (ByVal lpszSoundName As String, _
  ByVal uFlags As Long) As Long
 
<font color=green>' Einstellungen für uFlags</font>
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_SYN = &H0
 
<font color=green>' Klick auf Button</font>
Private Sub Command1_Click()
  sndPlaySound "c:wavesklang.wav", SND_ASYNC
End Sub