Sub tstbuttonSELECT_onClick()

 if (c1.checked=true) then    

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

    else

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

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

  case 2
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/doltons/la_noche.wma"
MEDPLAYER1.AutoStart = "-1"
  Case 3
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/doltons/mi_dia_vendra.wma"
MEDPLAYER1.AutoStart = "-1"

Case 4
    MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/doltons/no_puede_ser.wma"
MEDPLAYER1.AutoStart = "-1"

Case 5
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/doltons/tema_el_amor.wma"
MEDPLAYER1.AutoStart = "-1"

Case 6
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/doltons/ultimo_beso.wma"
MEDPLAYER1.AutoStart = "-1"

Case 7
MEDPLAYER1.FILENAME = "http://www.luisalvarado.com/music/doltons/visiondeotono.wma"
MEDPLAYER1.AutoStart = "-1"


  end select
 
end if
end sub