Creare una semplice Radio in vb8

Allora aggiungete un bottone un combobox un textbox e un windows media player.
Per chi nn lo sa windows media player si deve aggiungere, andate sulla casella degli strumenti > scegli strumenti > componenti COM > fate tick su windows media player e poi ok.
Su combobox1 come name mettete "Combo1",sul textbox come name mettete "text1" adessso mettete i codici :

Codice da mettere nel Form1:

Codice:

Combo1.Items.Add("RDS")
Combo1.Items.Add("Radio Margherita ")
Combo1.Items.Add("DiscoRadio")
Combo1.Items.Add("Radio Deejay")
Combo1.Items.Add("Radio Capital")
Combo1.Items.Add("Radio 105")
Combo1.Items.Add("Radio Montecarlo")
Combo1.Items.Add("Radio Kiss Kiss")
Combo1.Items.Add("Virgin Radio Italia")
Combo1.Items.Add("M2O")
Combo1.Items.Add("Radio 101")
Combo1.Items.Add("Latte Miele")
Combo1.Items.Add("Radio Maria")
Combo1.Items.Add("Radio Italia")
Combo1.Items.Add("Città Futura")

Codice da mettere nel Combo1:

Codice:

AxWindowsMediaPlayer1.URL = Text1.Text

If Combo1.Text = "RDS" Then
Text1.Text = "http://www.rds.it/streaming/rds.asx"
End If
If Combo1.Text = "Radio Margherita " Then
Text1.Text = "http://www.radiomargherita.com/live/radiomargherita.asx"
End If
If Combo1.Text = "DiscoRadio " Then
Text1.Text = "http://discoradio.fabbricadigitale.it/asx/discoradio.asx"
End If
If Combo1.Text = "Radio Deejay" Then
Text1.Text = "http://live.mediaserver.kataweb.it/radiodeejay"
End If
If Combo1.Text = "Rtl" Then
Text1.Text = "http://www.rtl.it/player/streaming/rtl1025.asx"
End If
If Combo1.Text = "Radio Capital" Then
Text1.Text = "http://live.mediaserver.kataweb.it/capital"
End If
If Combo1.Text = "Radio 105" Then
Text1.Text = "http://www.105.net/sezioni/inradio/radio/asx/ch_0.asx"
End If
If Combo1.Text = "Radio Montecarlo" Then
Text1.Text = "http://www.radiomontecarlo.net/Radio/asx/rmcfm.asx"
End If
If Combo1.Text = "Radio Kiss Kiss" Then
Text1.Text = "http://players.creacast.com/creacast/kisskiss/playlist_s.asx"
End If
If Combo1.Text = "Virgin Radio Italia" Then
Text1.Text = "http://151.1.245.1/20"
End If
If Combo1.Text = "M2O" Then
Text1.Text = "http://live.mediaserver.kataweb.it/m2o"
End If
If Combo1.Text = "Radio 101" Then
Text1.Text = "http://str30.creacast.com/r101b"
End If
If Combo1.Text = "Latte Miele" Then
Text1.Text = "http://www.streamsolution.it/onair/LatteMiele.asx"
End If
If Combo1.Text = "Radio Capital" Then
Text1.Text = "http://live.mediaserver.kataweb.it/capital"
End If
If Combo1.Text = "Radio Margherita" Then
Text1.Text = "http://www.radiomargherita.com/live/radiomargherita.asx"
End If
If Combo1.Text = "Radio Maria" Then
Text1.Text = "http://www.radiomaria.org/media/italy.asx"
End If
If Combo1.Text = "Radio Italia" Then
Text1.Text = "mms://radioitalia.wm.p1.str3.com/rditalia"
End If
If Combo1.Text = "Città Futura" Then
Text1.Text = ("mms://wms.it.net/radiofutura")
End If

Codice da mettere nel Mediaplayer:

Codice:

AxWindowsMediaPlayer1.URL = Text1.Text