Public Class Form1
    Declare Auto Function mciSendString Lib "winmm" (ByVal lpszCommand As _
      String, ByVal lpszReturnString As String, _
                                                     ByVal cchReturnLength As _
                                                     Int32, ByVal hwndCallback _
                                                     As Int32) As Int32
    Private file1 As String = "applause.mp3"
    Private file2 As String = "Vogel.mp3"
    Private loop1 As Boolean = True
    Private loop2 As Boolean = True
    Const MM_MCINOTIFY = &H3B9
    Const MCI_NOTIFY_SUCCESSFUL = &H1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        mciSendString("open " & Chr(34) & file1 & Chr(34) & " alias mysound1", _
        Nothing, 0, 0)
        PlaySound("mysound1")
        mciSendString("open " & Chr(34) & file2 & Chr(34) & " alias mysound2", _
          Nothing, 0, 0)
        PlaySound("mysound2")
    End Sub
 
    Private Sub PlaySound(sound As String)
        mciSendString("play " & sound & " from 0 notify", "", 0, Me.Handle)
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = MM_MCINOTIFY Then
            If m.WParam.ToInt32 = MCI_NOTIFY_SUCCESSFUL Then
                If loop1 AndAlso m.LParam.ToInt32 = 1 Then PlaySound("mysound1")
                If loop2 AndAlso m.LParam.ToInt32 = 2 Then PlaySound("mysound2")
            End If
        End If
        MyBase.WndProc(m)
    End Sub
End Class