Как работать с Windows media player? - Visual Basic .NET

Формулировка задачи:

Есть книга "Понятно о VB.Net", автор Лукин С.Н. Там есть пример, как создать будильник. Звуковой сигнал там звучит с помощью Windows media player. Я попытался сделать будильник на своем компе. Добавил на форму WMP, пытаюсь скопировать код с примера, но он у меня не работает. Код:

                    Листинг программы
                
MediaPlayer.AutoStart = False         'Чтобы не запускался слишком рано
MediaPlayer.PlayCount = 0               'Чтобы  закончив играть, начинал снова
MediaPlayer.FileName = "Mozart's Symphony No. 40.RMI"

У меня почему-то недоступно свойство AutoStart, PlayCount, FileName. Почему они недоступны? Пишет "autostart" не является членом "AxWMPLib.AxWindowsMediaPlayer".

Решение задачи: «Как работать с Windows media player?»

textual
                            Листинг программы 
                        
 
                            
                        
Imports AxWMPLib
 
Public Class Form1
    Dim a As Boolean
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Плеер.URL = "C:\Windows\Media\Windows Logon Sound.wav"
    End Sub
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Плеер.Ctlcontrols.play()
    End Sub
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Плеер.Ctlcontrols.stop()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Плеер.URL = "C:\Users\Public\Music\Sample Music\Sleep Away.mp3"
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Плеер.URL = "C:\Users\Public\Music\Sample Music\Kalimba.mp3"
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Плеер.URL = "C:\Users\Public\Videos\Sample Videos\Wildlife.wmv"
    End Sub
 
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        a = True
    End Sub
 
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Плеер.settings.rate = Плеер.settings.rate + 1
    End Sub
 
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Плеер.settings.rate = 1
    End Sub
 
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        a = False
        Плеер.settings.playCount = 1
    End Sub
 
    Private Sub Плеер_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles Плеер.PlayStateChange
        If a = True Then
            Плеер.settings.playCount = Плеер.settings.playCount + 1
        End If
    End Sub
End Class