New Post: Playing WMA

    Sub Main()
        Dim waveoutdevice As IWavePlayer
        Dim mainoutputstream As WaveStream
        waveoutdevice = New WasapiOut(AudioClientShareMode.Shared, 100)
        mainoutputstream = CreateInputStream("\Test.wma")
        waveoutdevice.Init(mainoutputstream)
        waveoutdevice.Play()
        Do While waveoutdevice.PlaybackState <> PlaybackState.Stopped
            Threading.Thread.Sleep(100)
        Loop
        waveoutdevice.Dispose()
        mainoutputstream.Dispose()
    End Sub
    Private Function CreateInputStream(ByVal fileName As String) As WaveStream
        Dim inputStream As WaveChannel32

        If fileName.EndsWith(".mp3") Then
            Dim mp3Reader As WaveStream = New Mp3FileReader(fileName)
            inputStream = New WaveChannel32(mp3Reader)
        ElseIf fileName.EndsWith(".wav") Then
            Dim wavreader As WaveStream = New WaveFileReader(fileName)
            inputStream = New WaveChannel32(wavreader)
        ElseIf fileName.EndsWith(".wma") Then
            Dim wavreader As WaveStream = New WMAFileReader(fileName)
            inputStream = New WaveChannel32(wavreader)
        Else
            Throw New InvalidOperationException("Unsupported extension")
        End If
        Return inputStream
    End Function