Apuntes de la clase del 20/7 (por axel)

Sub OffOn_Click
IF onoff.Backcolor = VBred Then
onoff. Backolor = VBblack
Uno . Enabled = False
Dos . Enabled= False
(etc ...)
ELSE
onoff.Backcolor=VBred
Uno . Enabled = True
Dos . Enabled = True
(etc ...)
End IF
End Sub


Sub canalmas _click
IF val(nrocanal.caption) < 13 Then
nrocanal.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