Apunte clase 20/7

Sub offon_click
IF onoff.backcolor=vbred THEN
on off.backcolor=vbblack
(uno enbled=false
dos enbled=true)
ELSE onoff.backcolor=vbred
(uno enabled=true
dos enables=true)
END IF
end sub

sub canalmás_click
IF val (nro canal.caption)<13 style="color: rgb(204, 204, 255);">THEN
nro canal.caption=val(nrocanal=caption)+1
ELSE
nrocanal.caption=1
END IF
end sub

sub catvtv_click
IF tvcatv.caption="tv" THEN
tvcatv.caption="catv"
ELSE
tvcatv.caption"tv"
END IF
end sub