¿Puede VB generar textualmente efectos como páginas web (js o vbs)?

Const str = "¡Aquí está el texto de prueba, utilizado para probar el efecto del programa! Por: yfdyh000" 'El texto mostrado se establece como una constante

Dim i As Integer 'El número de palabras que se muestran actualmente

Private Sub Form_Load()

Timer1.Enabled = True 'Habilitar visualización

Timer1.Interval = 100 'Mostrar cada 0,1 segundos

End Sub

Private Sub Timer1_Timer()

i = i 1 'Mostrar una palabra más cada vez

Label1 = Left( str, i) 'Establecer Mostrar palabras

Si i gt; Len(str) Entonces 'Si se han mostrado todas las palabras

'Timer1.Interval = 100 'Cada 0.Enabled = False 'Detén el reloj

p>

i = 0 'Borra el número de palabras mostradas y recicla la visualización

End If

End Sub

Fin Sub