apunte por veronica

ONOFF
sub onoff.click
if onoff.backcolor = vbles then
onoff.backcolor = vbblack
canalmas.enbled=FALSE
else
onoff.backcolor= vbred
canalmas.enbled=TRUE
end if
end sub
CANALMAS
sub canalmas.click
if tvcatv.caption = "TV" then
if nrocanal.caption >13 then
nrocanal.caption= 1
else
nrocanal.caption=
nrocanal.caption + 1
end if
else
if nrocanal.caption > 120 then
nrocanal.caption= 1
else
nrocanal.caption=
nrocanal.caption + 1
end if
end if
end sub