Need some help with audio playback

[Mcturtles]

Hey guys and gals, thanks for taking a look.
Basically my program has a "shuffle" music feature:

For i = 0 To 26
            num = randomObject.Next(0, 27)
            My.Computer.Audio.Play("C:\Users\Mcturtles\Music\Songs\" & num & ".wav", AudioPlayMode.BackgroundLoop)
        Next

Which selects a random number 0 - 26 and selects the corresponding song.

And a straight play feature:

Dim counter As Integer
        Do Until counter > 26
            My.Computer.Audio.Play("C:\users\mcturtles\music\songs\" & counter & ".wav", AudioPlayMode.WaitToComplete)
            counter += 1
        Loop

All of these activated by a button(separate for each)

When I click one, it makes the program stop responding. I'm pretty sure it is the .WaitToComplete mode, but I can't find a way to make it continuously play without it. If you can find my error, it would be greatly appreciated.

Also if you could tell me a way to make the shuffle never play the same song twice, that would be awesome as well.


Thanks,
Mcturtles