bueno, quiero dejar este aporte que esta muy bueno
Esta 100% funcional

Empezamos

creamos un WindowsMediaPlayer con:
<BLOCKQUOTE class=uncited>Name: Sintonizador
Visible: False
Aviso: Este se agrega al proyecto llendo a project > components > y alli buscan abajo de toda la lista wmp.dll

</BLOCKQUOTE>

creamos 1 label con las siguientes caracteristicas:

<BLOCKQUOTE class=uncited>Name: EstadoRadio
Caption: Radio: Desactivada
ForeColor: ( es a elección suya) xD

</BLOCKQUOTE>

En el codigo, arriba de

<LI class=li1>

1. Case vbKeyL:
   

colocamos:

<LI class=li1> Case vbKeyY:
<LI class=li2> If Radio = 0 Then
<LI class=li1> If MsgBox("La radio se encuentra desactivada. ¿Desea activarla?", vbYesNo, "Geo AO") = vbYes Then
<LI class=li2> Radio = Radio + 1
<LI class=li1> End If
<LI class=li2> ElseIf Radio > 0 Then
<LI class=li1> Radio = Radio + 1
<LI class=li2> End If
<LI class=li1>
<LI class=li2> If Radio = 1 Then
<LI class=li1> Sintonizador.URL = "http://mega.telecomdatacenter.com.ar/mega"
<LI class=li2> Sintonizador.Controls.Play
<LI class=li1> EstadoRadio.Caption = "Radio: 98.3"
<LI class=li2> ElseIf Radio = 2 Then
<LI class=li1> Sintonizador.URL = "mms://streamla100.uigc.net/la100"
<LI class=li2> Sintonizador.Controls.Play
<LI class=li1> EstadoRadio.Caption = "Radio: La 100"
<LI class=li2> ElseIf Radio = 3 Then
<LI class=li1> Sintonizador.URL = "mms://radiodisney.telecomdatacenter.com.ar/radioDisney/radiodisney.asx"
<LI class=li2> Sintonizador.Controls.Play
<LI class=li1> EstadoRadio.Caption = "Radio: Radio Disney"
<LI class=li2> ElseIf Radio = 4 Then
<LI class=li1> Radio = 0
<LI class=li2> Sintonizador.Controls.Stop
<LI class=li1> EstadoRadio.Caption = "Radio: Desactivada"

1. End If
   

Buscamos tambien en el frmMain:

1. Private Sub Form_load()
   

y debajo ponemos:

1. Radio = 0
   

Ahora, en el Mod_declaraciones, abajo de todo ponemos:

1. Public Radio As Integer
   

Y listo