Código fuente de subtítulos continuos de Vb

¿Qué usar? Etiqueta 1

. ¿Cambiar tamaño automáticamente? =?Real

. ¿título? =?"Subtítulos desplazables"

. ¿Tamaño de fuente? =?16

. ¿Color de primer plano? =?vbRed

¿Fin? Con

¿Qué usar? Temporizador 1

. ¿Permitir? =?Real

. ¿Intervalo? =?100

¿Fin? Con

¿Qué usar? HScroll1

. ¿Sensible? =?0

. Máx. =?Yo. Ancho de marca

¿Fin? ¿Con el final? Submarino

¿Privado? ¿Sub? Temporizador 1 _Timer()

¿Qué usar? Etiqueta 1

. ¿izquierda? =?HScroll1. Valor

. ¿Arriba? =?. ¿Arriba? -?100

¿Y si? . ¿Arriba? & lt=?0? ¿Y luego qué? . ¿Arriba? =?Yo. ¿Altura de escala? -?. Altura

¿Fin? ¿Con el final? Submarino