Cómo mantener la fuente desplazándose en la programación VB

Utilice un control de temporizador y un control de etiqueta

El código se puede escribir así,

Privado

Sub

Timer1_Timer()

Si

Etiqueta2.Izquierda

+

Etiqueta2.Ancho

< =

Entonces

Etiqueta2.Izquierda

=

Etiqueta2.Ancho

Si no

Etiqueta2 .Izquierda

=

Etiqueta2.Izquierda

-

1

Fin

Si

end

sub

¡Esto da vueltas y vueltas! ¡Sigue caminando!