apuntes de la clase del 29/06/06

estos son los apuntes de la clase del 29/06/06:
sub catvtv_ click ()
if tvcatv. caption = "tv" then
tvcatv.caption = "catv"
else
tvcatv.caption = "tv"
end if
end sub

sub prender_ click ()
if onoff.backcolor = "xxxxxx" then
onoff.backcolor = "--------"
else
onoff.backcolor = "xxxxxxx"
end if

sub canalmas_click ()
if canal.caption < 13 then
canal. caption = canal.caption +1
else
cannal.caption = 2
end if
end sub