Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal _
      lpszSoundName As String, ByVal uFlags As Long) As Long
 
    Sub Sound(ByVal WAVDatei As String)
        Dim rc As Long
        rc = sndPlaySound(WAVDatei, 1)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Sound("./music/Title.wav")
    End Sub

        Sound("./sound/test.wav")

Mit freundlichen Gr??en,
Djinndrache