Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim _dev As Device = New Device
    _dev.SetCooperativeLevel(Me.Handle, CooperativeLevel.Priority)
    Dim BufferDesc As BufferDescription = New BufferDescription()
    BufferDesc.ControlVolume = True
    BufferDesc.GlobalFocus = True
    Dim TheSound As SecondaryBuffer = New SecondaryBuffer("C:\Test.wav", BufferDesc, _dev)
    TheSound.Volume = -500
    TheSound.Play(0, BufferPlayFlags.Looping)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    My.Computer.Audio.Play("C:\Test.wav", AudioPlayMode.Background)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    For I = 1 To 100000
        Label1.Text = I.ToString
        Application.DoEvents()
    Next
End Sub