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

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = Text1.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem ("RDS")
Combo1.AddItem ("Radio Margherita ")
Combo1.AddItem ("DiscoRadio")
Combo1.AddItem ("Radio Deejay")
Combo1.AddItem ("Radio Capital")
Combo1.AddItem ("Rtl")
Combo1.AddItem ("Radio 105")
Combo1.AddItem ("Radio Montecarlo")
Combo1.AddItem ("Radio Kiss Kiss")
Combo1.AddItem ("Virgin Radio Italia")
Combo1.AddItem ("M2O")
Combo1.AddItem ("Radio 101")
Combo1.AddItem ("Latte Miele")
Combo1.AddItem ("Radio Maria")
Combo1.AddItem ("Radio Italia")
Combo1.AddItem ("Città Futura")
End Sub