Private Declare Function PlaySound& Lib "winmm" Alias "PlaySoundA" (ByVal _
  lpszName$, ByVal hModule&, ByVal dwFlags&)
 
' Sound-Konst.
Private Const SND_SYNC& = &H0 ' play synchronously (default)
Private Const SND_ASYNC& = &H1 ' play asynchronously
Private Const SND_MEMORY& = &H4 ' lpszSoundName points to a memory file
Private Const SND_FILENAME& = &H20000 ' name is a file name
Private Const SND_LOOP& = &H8 ' loop the sound until next sndPlaySound
 
Private Sub Form_Load()
 
  Dim Dat1$
 
  Dat1 = "C:\EineSounddatei.wav"
  If Dir$(Dat1) = "" Then
    MsgBox "Datei nicht gefunden:" & vbCr & Dat1, vbOKOnly + vbExclamation
  Else
    Call PlaySound(Dat1, 0, SND_ASYNC Or SND_FILENAME)
  End If
 
End Sub

Gruss,

Zardoz