codigo y captura

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 Interruptor1_Click()
if Tvctv.Caption = TV
End Sub

Private Sub Masbrillo_Click()
Pantalla.Top = Pantalla.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
Onoff.Top = Onoff.Top + 100
Panasonic1.Top = Panasonic1.Top + 100
Bajo.Top = Bajo.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
End Sub

Private Sub Mascanal_Click()
If Tvcatv.Caption = "TV" Then
If Nrocanal.Caption < caption =" Nrocanal.Caption" caption =" 0" caption =" Nrocanal.Caption" caption =" 0" left =" Pantalla.Left" left =" Auxiliar.Left" left =" Tvcatv.Left" left =" Onoff.Left" left =" Panasonic1.Left" left =" Bajo.Left" left =" Nrocanal.Left" top =" Pantalla.Top" top =" Auxiliar.Top" top =" Tvcatv.Top" top =" Onoff.Top" top =" Panasonic1.Top" top =" Bajo.Top" top =" Nrocanal.Top"> 0 Then
Nrocanal.Caption = Nrocanal.Caption - 1
Else
Nrocanal.Caption = 130
End If
End Sub

Private Sub Menosvolumen_Click()
Pantalla.Left = Pantalla.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
Onoff.Left = Onoff.Left - 100
Panasonic1.Left = Panasonic1.Left - 100
Bajo.Left = Bajo.Left - 100
Nrocanal.Left = Nrocanal.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 = ""
Onoff.BackColor = vbBlack
Tvcatv.Caption = ""
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
Enter.Enabled = False
Off.Enabled = False
Masvolumen.Enabled = False
Masbrillo.Enabled = False
Mascanal.Enabled = False
Menosvolumen.Enabled = False
Menosbrillo.Enabled = False
Menoscanal.Enabled = False
Onn.Enabled = True
Auxiliar.Caption = ""
End Sub

Private Sub Onn_Click()
Nrocanal.Caption = "0"
Onoff.BackColor = vbRed
Tvcatv.Caption = "TV"
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
Enter.Enabled = True
Off.Enabled = True
Masvolumen.Enabled = True
Masbrillo.Enabled = True
Mascanal.Enabled = True
Menosvolumen.Enabled = True
Menosbrillo.Enabled = True
Menoscanal.Enabled = True
Onn.Enabled = False

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

hecho por herno y marcos

primer video flash (herno)

[Upload your own video]

ya tengo las 100

tengo las 100 encuestas hechase

entrar encuesta

Mi lugar (por herno)

El lugar que yo elegi fue la cancha del inter

La renga

A tu lado

Pobreza en los estómagos
Más pobreza en la cabeza
No queda nada a salvo de este gran error
El mundo sigue así
Tan terrible y abrumado
Que sentirte a mi lado me hará mucho mejor
Saltemos este muro y desaparezcamos

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

En esta soledad,
La que asila a tanta gente
El que salve su vida, la perderá
El mundo tan feliz, a su mal me ha acostumbrado
Que sentirme a tu lado me hará mucho mejor
Saltemos este muro y desaparezcamos,
en un lugar seguro dejaremos el dolor.

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

Al fin seremos todos,
Después que sólo seas uno,
Es un arte muy difícil cuando domina el temor
El mundo tan hostil, nos lleva decapitados
Que sentirte a mi lado me hará mucho mejor
Saltemos este absurdo y desaparezcamos
En un lugar seguro dejaremos el dolor.

No, no da refugio el cielo,
En una noche como hoy, de fuego,
Vaga tu alma en celo
En su trampa el cazador sereno
va a estar esperándote

página oficial de La Renga

me gusto porque es una cancion que escuchaba mi hermano de chico y me la enseño y estuve toda mi vida escuchando la renga.