¿Cómo crear un efecto de texto desplazable en vb6?

Tengo la contraseña y puedo desplazarme hacia la izquierda y hacia la derecha.

Crear una nueva etiqueta 1 temporizador 1 texto 1 texto 2 comando 1.

Establezca el tiempo del temporizador en 300, Enable=false, Label1.caption=0, Visible=false, text 1. mult line = false; Ingrese cientos de palabras en Texto 2. Text1 es ancho, pero solo tiene una línea de alto.

Subcomando privado 1_click()

timer1.enable=true

Terminará si...

Haga doble clic en el temporizador 1 e ingrese Código:

Ir a error en caso de error

texto 1. texto = mid(texto 2. texto, etiqueta1.caption, 20)

etiqueta 1 . caption = etiqueta 1

Conector de salida

Error:

timer1.enable=false

El texto1 también se puede reemplazar por etiqueta. Simplemente cambie

text 1. text = mid(text 2. text, label1.caption, 20)

por

label2.caption=mid(text2 . texto, etiqueta1.caption, 20)