apuntes de la clase del 13-7-06

Sub_canalmas_click( )
If (canal.caption > 120) and (tvcatv.caption = “catv”) then
Canal.caption = 2
Else
If ( canal.caption > 13 ) and (tvcatv.caption =”tv”) then
Canal.caption = 2
Else
Canal.caption = val (canal.caption) + 1
End if
End if
End sub


Private sub pausa_ click ()
If pausa. Visible = true then
Pausa . visible = false
Else
Pausa. Visible = true
End if
End sub


Private sub fav _ click ()
Ch.caption = “12”
End sub