Не работает пример про медиаплеер из книги Лукина

Плеер.FileName = "E:\WINNT\Media\Windows Logon Sound.wav"
Плеер.Play()

Private Sub Звук_загрузки_Windows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Звук_загрузки_Windows.Click
        Плеер.FileName = "D:\WINNT\Media\Windows Logon Sound.wav"
End Sub
 
Private Sub Каньон_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Каньон.Click
        Плеер.FileName = "D:\WINNT\Media\canyon.mid"
End Sub
 
Private Sub В_пещере_горного_короля_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                                       Handles В_пещере_горного_короля.Click
        Плеер.FileName = "D:\WINNT\Media\In the Hall of the Mountain King.RMI"
End Sub
 
Private Sub Штопор_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Штопор.Click
        Плеер.FileName = "D:\Program Files\Microsoft Visual Studio .NET\Common7\Graphics\videos\DRILLRLE.AVI"
End Sub
 
Private Sub Счетчик_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Счетчик.Click
        Плеер.FileName = "D:\Program Files\Microsoft Visual Studio .NET\Common7\Graphics\videos\COUNT24.AVI"
End Sub
 
Private Sub Notre_Dame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Notre_Dame.Click
        Плеер.FileName = "D:\Documents and Settings\d\My Documents\Visual Studio Projects\Разное\Notre2.avi"
End Sub
 
Private Sub Старт_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Старт.Click
        Плеер.Play()
End Sub
 
Private Sub Стоп_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Стоп.Click
        Плеер.Stop()
End Sub
 
Private Sub Играть_непрерывно_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles Играть_непрерывно.Click
        Плеер.PlayCount = 0
End Sub
 
Private Sub Играть_1_раз_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Играть_1_раз.Click
        Плеер.PlayCount = 1
End Sub
 
Private Sub Быстрее_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Быстрее.Click
        Плеер.Rate = 2
End Sub
 
Private Sub В_обычном_темпе_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles В_обычном_темпе.Click
        Плеер.Rate = 1
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.URL = "c:\mediafile.wmv"
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub

imports WMPLib

Public Class Form1
    Dim mus As New Media.SoundPlayer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mus.Stream = My.Resources.DJ_Sisen___Havestar__Combichrist_Mix_
        mus.Play()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
End Class

imports WMPLib

Imports System.Net.Sockets

Private server_Listener As TcpListener

Private server_Listener As System.Net.Sockets.TcpListener

Imports System.Net

Private server_Listener As Sockets.TcpListener

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.URL = "E:\Музыка\Слезы асвальта.mp3"
        AxWindowsMediaPlayer1.Ctlcontrols.play()
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub
End Class

 imports WMPLib

Public Class Form1
 
    Private Sub Аудио1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Аудио1.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Аудио1.mp3"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Аудио2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Аудио2.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Аудио2.mp3"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Аудио3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Аудио3.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Аудио3.mp3"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Видео1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Видео1.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Видео1.mp4"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Видео2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Видео2.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Видео2.mp4"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Видео3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Видео3.Click
        Проигрыватель.URL = "D:\Файлы пользователей\Пользователь\Документы\Visual Studio 2010\Projects\Видеопроигрыватель\Видеопроигрыватель\Ресурсы\Видео3.mp4"
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Старт_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Старт.Click
        Проигрыватель.Ctlcontrols.play()
    End Sub
 
    Private Sub Стоп_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Стоп.Click
        Проигрыватель.Ctlcontrols.stop()
    End Sub
 
    Private Sub ИгратьНепрерывно_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ИгратьНепрерывно.Click
        Проигрыватель.settings.playCount = 0
    End Sub
 
    Private Sub Играть1Раз_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Играть1Раз.Click
        Проигрыватель.settings.playCount = 1
    End Sub
 
    Private Sub Быстрее_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Быстрее.Click
        Проигрыватель.settings.rate = Проигрыватель.settings.rate + 1
    End Sub
 
    Private Sub ОбычныйТемп_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОбычныйТемп.Click
        Проигрыватель.settings.rate = 1
    End Sub
End Class