Programación VB: Bienvenido apec está rodeado por un cuadro, el texto verde en el cuadro es rojo, el texto rojo en el cuadro cambia a verde, la velocidad del cambio se puede controlar con una barra de progreso. ¿Quién puede describirlo?

Private?Sub?Form_Load()?'Los controles utilizados son timer1, hscroll1

Me.AutoRedraw?=?True

HScroll1.Max?=? 3000

HScroll1.Min?=?50

HScroll1.LargeChange?=?500

HScroll1.SmallChange?=?10

Temporizador1.Intervalo?=?1000

HScroll1.Value?=?1000

Temporizador1.Enabled?=?True

Fin?Sub

Privado?Sub?HScroll1_Change()

Timer1.Interval?=?HScroll1.Value

Fin?Sub

Privado?Sub?Timer1_Timer()

¿Estático?b?As?Booleano

Dim?x?As?Single,?y?As?Single

Dim?s?As?String

Cls

s?=?"Bienvenido apec"

x?=?CurrentX

y?=?CurrentY

Si?b?Entonces Me.ForeColor?=?vbRed Print?s Me.ForeColor?=?vbLínea verde?(x,?y)-(x? ?TextWidth(s),?y) Línea?-Paso( 0, ?TextHeight(s)) ¿Línea?-Step(-TextWidth(s),?0) ¿Línea?-Step(0,?-TextHeight(s)) b?=?Not?b

Else Yo .ForeColor?=?vbGreen Print?s Me.ForeColor?=?vbRed Line?(x,?y)-(x? ?TextWidth(s),?y) Line?-Step(0,?TextHeight(s) )) ¿Línea?-Step(-TextWidth(s),?0) ¿Línea?-Step(0,?-TextHeight(s)) b?=?Not?b End?If

End?Sub