Sub UpdateStatus
Dim tmp As String
If ESTADO="STOP" Then
lblStatus.Text="listo..."
PauseButton.Visible=False
PlayButton.Visible =True
PlayButton.Enabled =True
StopButton.Enabled=False
tmp=""
Else If ESTADO="PLAY" Then
lblStatus.Text="En el aire..."
PauseButton.Visible=True
PlayButton.Visible =False
StopButton.Enabled=True
tmp="Reproduciendo"
Else If ESTADO="PAUSE" Then
lblStatus.Text="Pausado..."
PauseButton.Visible=False
PlayButton.Visible =True
StopButton.Enabled=True
tmp="Pausado"
Else
'STOP VER
tmp=""
lblStatus.Text="..."
End If
Service1.Notification1.SetInfo("Radio",tmp,"Main")
Service1.Notification1.Notify(1)
End Sub