Private Sub btnPower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPower.Click
        If Mode = ModeEnum.OffMode Then
            Mode = ModeEnum.OnMode
            AxMediaPlayer1.FileName = "c:\cwmusic\ChrisBrown.mp3"

        Else
            Mode = ModeEnum.OffMode
            AxMediaPlayer1.Stop()
            Dim sw As New IO.StreamWriter("c:\lastStation.txt")

            sw.Write(radioStations(0).ToString)

            sw.Close()
        End If
        SetMode(Me, Mode)
    End Sub

    Dim radioStations(19) As Station


    Private Mode As ModeEnum = ModeEnum.OffMode
    Enum ModeEnum
        OnMode
        OffMode
    End Enum
    Sub SetMode(ByVal ctl As Control, ByVal mode As ModeEnum)
        Dim blnEnabled As Boolean = (mode = ModeEnum.OnMode)
        For Each subCtl As Control In ctl.Controls
            If Not subCtl.Name = "btnPower" Then
                subCtl.Enabled = blnEnabled
            End If
            If subCtl.HasChildren Then SetMode(subCtl, mode)
        Next
    End Sub



    Private Sub TckbarVolume_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TckbarVolume.Scroll
        AxMediaPlayer1.Volume = TckbarVolume.Value * 10
    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetMode(Me, ModeEnum.OffMode)

        Dim fileName As String = "C:\lastStation.txt"
        Dim textLine As String = String.Empty
        Try
            If System.IO.File.Exists("C:\lastStation.txt") Then
                Dim reader As New System.IO.StreamReader(fileName)
                Do While reader.Peek() <> -1
                    textLine += reader.ReadLine()
                    textLine += Environment.NewLine()
                Loop
            Else
                textLine = "File not found!"
            End If
        Catch Ex As Exception
            textLine = Ex.Message
        End Try
        lblStationInfo.Text = textLine




        radioStations(0) = New Station("Classic Rock", "http://www.cfm.com", RadioBand.FM)
        radioStations(0).SongName = "c:\cwmusic\Kylie.mp3"

        radioStations(1) = New Station("Carly's Test", "http://www.cfm.com", RadioBand.AM)
        radioStations(1).SongName = "c:\cwmusic\Snowpatrol.mp3"

        radioStations(2) = New Station("Carly's Test Station2", "http://www.cfm.com", RadioBand.FM)
        radioStations(2).SongName = "c:\cwmusic\Kylie.mp3"






    End Sub





    Private Sub btnScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScan.Click
        AxMediaPlayer1.Mute = True
        Dim oForm As New Form2
        oForm.ShowDialog()
        AxMediaPlayer1.Mute = False
    End Sub


    Private Sub btnMute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMute.Click
        If AxMediaPlayer1.Mute Then
            AxMediaPlayer1.Mute = False
        Else
            AxMediaPlayer1.Mute = True
        End If
    End Sub

    Private Sub radiobtnAM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiobtnAM.CheckedChanged
        If radiobtnAM.Checked Then
            Module1.AM = True
        Else
            Module1.AM = False
        End If
    End Sub



    Private Sub radiobtnFM_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radiobtnFM.CheckedChanged
        If radiobtnFM.Checked Then
            Module1.AM = False
        Else
            Module1.AM = True
        End If
    End Sub


    Private Sub Station1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Station1.Click
        AxMediaPlayer1.FileName = "c:\cwmusic\Ronan.mp3"
        lblStationInfo.Text = radioStations(0).ToString()
    End Sub

    Private Sub Station2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Station2.Click
        AxMediaPlayer1.FileName = "c:\cwmusic\Snowpatrol.mp3"
        lblStationInfo.Text = radioStations(1).ToString()

    End Sub

    Private Sub station3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles station3.Click
        AxMediaPlayer1.FileName = "c:\cwmusic\Kylie.mp3"
        lblStationInfo.Text = radioStations(2).ToString()
    End Sub

    Public Class Station
        Private InfoText As String
        Private URL As String
        Private Band As RadioBand


        Private song As String

        Public Sub New()
        End Sub

        Public Sub New(ByVal InfoText As String, _
         ByVal URL As String, _
        ByVal Band As RadioBand)
            Me.InfoText = InfoText
            Me.URL = URL
            Me.Band = Band
        End Sub

        Public Property SongName()
            Get
                Return song
            End Get
            Set(ByVal value)
                song = value
            End Set
        End Property

        Public Overrides Function ToString() As String
            Return Me.InfoText
        End Function
    End Class


    Public Enum RadioBand
        FM = 0
        AM = 1
    End Enum

End Class