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) <>

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