Cómo escribir un código en vb para simular la visualización del texto uno por uno y ajustar la velocidad

"Las palabras se muestran una por una" puede tener dos interpretaciones: una es el efecto como escribir, que se muestra "una tras otra" la otra es que cuando se muestra la palabra actual, el texto; que acaba de mostrarse desaparece, que es un Mostrado en lugar de uno. ?

¿Dim?i?As?Integer

Dim?L?As?Integer

Dim?v?As?Integer

Private?Sub?Command1_Click()

i?=?0

L?=?Len(Text1.Text)

'Método 1: usar entrada de texto Valor de velocidad, desventajas: la entrada debe ser mayor que 0 y no debe ingresar nada más que números

v?=?Text2.Text?*?1?' Establezca la velocidad en milisegundos, multiplicada por 1 para forzar la conversión a Número

Timer1.Interval?=?v

Timer1.Enabled?=?True

End?Sub

Private?Sub? HScroll1_Change()

'Método 2: use la barra de desplazamiento para controlar la velocidad. Desventaja: hay límites superior e inferior

v?=?HScroll1. Valor

Fin? Sub

Privado?Sub?Text2_Change()?'Validez de la entrada

If?IsNumeric(Text2.Text)?And?Text2. ¿Texto?<>?"0"? Entonces

v?=?Text2.Text?*?1

Else

MsgBox?"Ingrese un número ¡mayor que 0!"

Texto2.Text?=?500

¿Fin?Si

Fin?Sub

¿Privado?Sub? Timer1_Timer()?'Efecto dinámico

Timer1.Interval?=?v?' se utiliza para cambiar la velocidad

i?=?i?+?1?'Siguiente carácter

showWord.Caption?= ?Left(Text1.Text,?i)

Si se requiere?i?=?L?Then?Timer1.Enabled?=?False?' de lo contrario se producirá un error

Fin Sub