Apuntes de la clase del 13-7-06 (por Ezequiel Alma)

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