Apunte - (Por Sol y Gasti)

Sub Offon_Click

If Onoff.Backcolor = VbRed Then
Onoff.Backcolor = VbBlack
Uno.Enabled = False
Dos.Enabled = False
Tres.Enabled = False
Cuatro.Enabled = False
Cinco.Enabled = False
Seis.Enabled = False
Siete.Enabled = False
Ocho.Enabled = False
Nueve.Enabled = False
Cero.Enabled = False

Else
Onoff.Backcolor = VbRed
Uno.Enabled = True
Dos.Enabled = True
Tres.Enabled = True
Cuatro.Enabled = True
Cinco.Enabled = True
Seis.Enabled = True
Siete.Enabled = True
Ocho.Enabled = True
Nueve.Enabled = True
Cero.Enabled = True

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