Private Declare Function PlayWav Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpsz As String, _
ByVal dwFlags As Integer) As Integer
 
 
 
Public Sub PlayClickSound()
  On Error Resume Next
 
  Dim nRet As Integer ' Rückgabewert von PlaySound
  Dim datei As String = "C:\Musikdatei.wav" 'Abzuspielende Wav-Datei
 
  nRet = PlayWav(datei, 0) ' Wav-Datei mit 0 Wiederholungen abspielen
End Sub