Televisión (Por Mora)

Private Sub CATVcontrol_Click()
TVCATV.Caption = "CATV"
End Sub
Private Sub cero_Click()
Auxiliar.Caption = Auxiliar.Caption + "0"
End Sub
Private Sub cinco_Click()
Auxiliar.Caption = Auxiliar.Caption + "5"
End Sub
Private Sub cuatro_Click()
Auxiliar.Caption = Auxiliar.Caption + "4"
End Sub
Private Sub dos_Click()
Auxiliar.Caption = Auxiliar.Caption + "2"
End Sub
Private Sub Enter_Click()
Ncanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
End Sub
Private Sub Masbrillo_Click()
TV.Top = TV.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Base.Top = Base.Top + 100
onoff.Top = onoff.Top + 100
TVCATV.Top = TVCATV.Top + 100
Ncanal.Top = Ncanal.Top + 100
End Sub
Private Sub Mascanal_Click()
If TVCATV.Caption = "TV" Then
If Ncanal.Caption < 13 Then
Ncanal.Caption = Ncanal.Caption + 1
Else
Ncanal.Caption = 0
End If
Else
If Ncanal.Caption < 130 Then
Ncanal.Caption = Ncanal.Caption + 1
Else
Ncanal.Caption = 0
End If
End If
End Sub
Private Sub Menosbrillo_Click()
TV.Top = TV.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
Base.Top = Base.Top - 100
onoff.Top = onoff.Top - 100
TVCATV.Top = TVCATV.Top - 100
Ncanal.Top = Ncanal.Top - 100
End Sub
Private Sub Menoscanal_Click()
If Ncanal.Caption < 1 Then
If TVCATV.Caption = "TV" Then
Ncanal.Caption = 13
Else
Ncanal.Caption = 130
End If
Else
Ncanal.Caption = Ncanal.Caption - 1
End If
End Sub
Private Sub nueve_Click()
Auxiliar.Caption = Auxiliar.Caption + "9"
End Sub
Private Sub ocho_Click()
Auxiliar.Caption = Auxiliar.Caption + "8"
End Sub
Private Sub Off_Click()
Ncanal.Caption = ""
TVCATV.Caption = ""
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
End Sub
Private Sub offon_Click()
If uno.Enabled = True Then
Ncanal.Caption = ""
TVCATV.Caption = ""
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: Ncanal.Caption = "0"
TVCATV.Caption = "TVCATV"
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
Private Sub On_Click()
Ncanal.Caption = "0"
TVCATV.Caption = "TVCATV"
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 Sub
Private Sub seis_Click()
Auxiliar.Caption = Auxiliar.Caption + "6"
End Sub
Private Sub siete_Click()
Auxiliar.Caption = Auxiliar.Caption + "7"
End Sub
Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub

Private Sub TVcontrol_Click()
TVCATV.Caption = "TV"
End Sub
Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub