
End Sub
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 Label1_Click()
End Sub
Private Sub enter_Click()
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub
Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top - 100
End Sub
Private Sub mascanal_Click()
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0" left =" pantalla.Left" top =" pantalla.Top"> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 120
End If
End Sub
Private Sub menosvolumen_Click()
pantalla.Left = pantalla.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 off_Click()
nrocanal.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
tv.Enabled = False
catv.Enabled = False
auxiliar.Caption = ""
End Sub
Private Sub on_Click()
nrocanal.Caption = "0"
Tvcatv.Caption = "TV"
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
tv.Enabled = True
catv.Enabled = True
auxiliar.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

















Ocho propietarios iPhones se han sumado a una elite de clanes: Su gadget de Apple está ejecutando un programa que costó casi US $1000. Pues si son 8 personas que han comprado el tonto programa "I Am Rich".Su función es exactamente lo que el nombre implica: para alertar a la gente que tiene dinero en el banco. I Am Rich (Soy rico). Estaba disponible para la compra en App Store de Apple, conseguir esto cuesta $999.99 dólares, el monto más alto que un desarrollador puede cargar a través del distribuidor digital, dice Armin Heinrich, el desarrollador del programa. Una vez descargado, que no hace mucho solo presenta un icono rojo en pantalla de inicio del iPhone al igual que cualquier otra aplicación, con el subtexto "I Am Rich (Soy rico)." Una vez activado, les presenta a los usuarios la foto de una grande y brillante joya (foto arriba). Eso es todo. Por mil dólares.

