Public Sub LoopPlay()
   While True
      AxWindowsMediaPlayer1.URL = "playlist.m3u"
      AxWindowsMediaPlayer1.Ctlcontrols.play()
   End While
End Sub

Dim loopThread As Threading.Thread

loopThread = New Threading.Thread(AddressOf LoopPlay)
loopThread.Start()

loopThread.Abort()

Ralf