codigos del trabajo

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()
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub
Private Sub mascanal_Click()
If nrocanal.Caption > 120 Then
nrocanal.Caption = nrocanal.Caption + 120
Else
nrocanal.Caption = 1
End If
End Sub

Private Sub massonido_Click()

End Sub

Private Sub menoscanal_Click()
If nrocanal.Caption > 1 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 120
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()
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
zero.Enabled = False
nrocanal.Caption = ""
tvcatv.Caption = ""
End Sub

Private Sub offon_Click()
If uno.Enabled = False Then
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
zero.Enabled = True
Else
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
zero.Enabled = False
nrocanal.Caption = ""
tvcatv.Caption = ""
End If
End Sub

Private Sub on_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
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
zero.Enabled = True
End Sub


Private Sub seis_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub


Private Sub tres_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub


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

Private Sub zero_Click()
auxiliar.Caption = auxiliar.Caption + "0"
End Sub