Avance ,control

sus offon.click



if onoff.backcolor=vbred then

onoff.backcolor=vbblack

canalmas.enabled=false



else



onoff.backcolor=vbred

canalmas.enbled=true



end if





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



if nro canal.caption=nrocanal.caption+1



endif

end sub