Sub tstbuttonSELECT_onClick()

 if (c1.checked=true) then    

    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music2008/playlists/viejitos.m3u"
MEDPLAYER1.AutoStart = "-1"

    else

  Select Case Songlist.selectedIndex
  Case 0
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/decadas.wmv"
MEDPLAYER1.AutoStart = "-1"

  case 1
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/aguilas.wma"
MEDPLAYER1.AutoStart = "-1"

  

  end select
 
end if
end sub