Visual Basic

Private Sub CATV_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()NUMEROCANAL.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub masbrillo_Click()Pantalla.Top = Pantalla.Top + 100End Sub
Private Sub mascanal_Click()If NUMEROCANAL.Caption < caption =" NUMEROCANAL.Caption" caption =" 0End" left =" Pantalla.Left" top =" Pantalla.Top"> 0 ThenNUMEROCANAL.Caption = NUMEROCANAL.Caption - 1ElseNUMEROCANAL.Caption = 129End IfEnd Sub
Private Sub menosvolumen_Click()Pantalla.Left = Pantalla.Left - 100End 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()auxiliar.Caption = ""NUMEROCANAL.Caption = ""TVCATV.Caption = ""ONOFF.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = FalseTV.Enabled = FalseCATV.Enabled = FalseEnd Sub
Private Sub ON_Click()NUMEROCANAL.Caption = "0"TVCATV.Caption = "TV"ONOFF.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueTV.Enabled = TrueCATV.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 TV_Click()TVCATV.Caption = "TV"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub