visual 2 (Brian)

Private Sub canalmas_Click()
If tvcatv.Caption = "catv" Then
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0" caption = "tv" caption =" nrocanal.Caption" caption =" 0"> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If tvcatv.Caption = "catv" Then
nrocanal.Caption = 129
Else
nrocanal.Caption = 13
End If
End If
End Sub

Private Sub catv1_Click()
tvcatv.Caption = "catv"
End Sub

Private Sub catvtv_Click()
If tvcatv.Caption = "tv" Then
tvcatv.Caption = "catv"
Else
tvcatv.Caption = "tv"
End If
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 Command1_Click()

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()
If auxiliar.Caption < 130 Then
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub

Private Sub masbrillo_Click()
base.Top = base.Top + 100
tvcatv.Top = tvcatv.Top + 100
onof.Top = onof.Top + 100
nrocanal.Top = nrocanal.Top + 100
auxiliar.Top = auxiliar.Top + 100
pantalla.Top = pantalla.Top + 100
End Sub

Private Sub masvolumen_Click()
base.Left = base.Left + 100
tvcatv.Left = tvcatv.Left + 100
onof.Left = onof.Left + 100
nrocanal.Left = nrocanal.Left + 100
auxiliar.Left = auxiliar.Left + 100
pantalla.Left = pantalla.Left + 100
End Sub

Private Sub menosbrillo_Click()
base.Top = base.Top - 100
tvcatv.Top = tvcatv.Top - 100
onof.Top = onof.Top - 100
auxiliar.Top = auxiliar.Top - 100
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
End Sub

Private Sub menosvolumen_Click()
tvcatv.Left = tvcatv.Left - 100
onof.Left = onof.Left - 100
nrocanal.Left = nrocanal.Left - 100
pantalla.Left = pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
base.Left = base.Left - 100
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 of1_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
onof.BackColor = vbBlack
tvcatv.Enabled = False
uno.Enabled = False
dos.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
seis.Enabled = False
cinco.Enabled = False
ocho.Enabled = False
siete.Enabled = False
cero.Enabled = False
nueve.Enabled = False
tv1.Enabled = False
catv1.Enabled = False
enter.Enabled = False
canalmas.Enabled = False
canalmenos.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
End Sub

Private Sub ofon_Click()
If onof.BackColor = vbRed Then
onof.BackColor = vbBlack
nrocanal.Caption = ""
tvcatv.Caption = ""
uno.Enabled = False
dos.Enabled = False
tvcatv.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
auxiliar.BackColor = vbgrey
seis.Enabled = False
cinco.Enabled = False
ocho.Enabled = False
siete.Enabled = False
cero.Enabled = False
nueve.Enabled = False
tv1.Enabled = False
catv1.Enabled = False
enter.Enabled = False
canalmas.Enabled = False
canalmenos.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
catvtv.Enabled = False
Else
enter.Enabled = True
uno.Enabled = True
dos.Enabled = True
nrocanal.Caption = "0"
tvcatv.Caption = "tv"
cuatro.Enabled = True
tres.Enabled = True
catvtv.Enabled = True
tvcatv.Enabled = True
seis.Enabled = True
cinco.Enabled = True
ocho.Enabled = True
siete.Enabled = True
cero.Enabled = True
nueve.Enabled = True
auxiliar.BackColor = vbGreen
tv1.Enabled = True
catv1.Enabled = True
canalmas.Enabled = True
canalmenos.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.Enabled = True
onof.BackColor = vbRed
End If
End Sub

Private Sub on1_Click()
enter.Enabled = True
uno.Enabled = True
dos.Enabled = True
nrocanal.Caption = "0"
tvcatv.Caption = "tv"
onof.BackColor = vbRed
cuatro.Enabled = True
tres.Enabled = True
seis.Enabled = True
cinco.Enabled = True
ocho.Enabled = True
siete.Enabled = True
cero.Enabled = True
nueve.Enabled = True
tv1.Enabled = True
catv1.Enabled = True
canalmas.Enabled = True
canalmenos.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.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 tv1_Click()
tvcatv.Caption = "tv"
End Sub

Private Sub uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub