¡Programación VB! ! ! Salid todos los expertos.

Private?Sub?Form_Load()

Me.Caption?=?"Escriba rápidamente "Soy un cerdo", de lo contrario, ¿su computadora estará después de 1;0;0? Cerrar abajo"

Texto1.Texto?=?""

Temporizador1.Interval?=?1000

Fin?Sub

¿Privado? Sub?Timer1_Timer()

Si?Text1.Text?=?"Soy un cerdo"?Entonces

MsgBox?"Aquellos que conocen la actualidad son héroes. ¿No lo es? esto cierto?O( ∩_∩)Oha! "

Fin

Else Label1.Caption?=?Label1.Caption?-?1 If?Label1.Caption?lt;= ?59?Entonces ?Shell?"shutdown.exe?-s?"