Sub tstbuttonSELECT_onClick()

 if (c1.checked=true) then    

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

    else

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

  case 1
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/amarraditos3.wmv"
MEDPLAYER1.AutoStart = "-1"

  case 2
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/anita.wmv"
MEDPLAYER1.AutoStart = "-1"
  Case 3
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/dejalos.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 4
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/estrellita.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 5
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/finaestampa.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 6
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/florcanela.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 7
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/hermelinda.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 8
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/historiademivida.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 9
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/huerto.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 10
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/llamame.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 11
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/nubegris.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 12
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/plebeyo.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 13
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/queimporta.wmv"
MEDPLAYER1.AutoStart = "-1"

Case 14
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/morochucos/todosvuelven.wmv"
MEDPLAYER1.AutoStart = "-1"

 end select
 
end if
end sub