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 file As String = "applause.mp3"
    Private Soundloop As Boolean = True
    Const MM_MCINOTIFY = &H3B9
    Const MCI_NOTIFY_SUCCESSFUL = &H1 'Sound korrekt beendet
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        mciSendString("open " & Chr(34) & file & Chr(34) & " alias mysound", _
        Nothing, 0, 0)
        PlaySound()
    End Sub
    'notify = Nachrichten an Me.Handle
    Private Sub PlaySound()
        mciSendString("play mysound 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 AndAlso Soundloop Then
                PlaySound()
            End If
        End If
        MyBase.WndProc(m)
    End Sub
End Class