[VB6] Testo scorrevole in un controllo TextBox

[cleaner]

come da oggetto volevo conoscere il codice per un testo scorrevole in una determinata textbox.
conosco già la propietà multiline,ma essa mi permette di far scorrere il testo "a mano",io intendo che la frase che inserisco scorra in modo automatico alla pressione di un command.
grazie

[LMondi]

Ciao, forse vi sono altri modi
io ho provato con le funzioni Left e Len ed un Timer.
In particolare, per il controllo Txt, con Len prendo la lunghezza del testo e l'attribuisco a SelStart in modo che il punto d'inserimento del testo sia sempre l'ultimo. Il codice l'ho provato e funziona.

Option Explicit
Dim i As Integer
Private Sub Command1_Click()
    
    Timer1.Interval = 150
    Label1.Caption = ""
    Label1.AutoSize = True
    Text1.Text = ""
    i = 1

End Sub
Private Sub Timer1_Timer()
    
    Dim LTesto As Integer
    LTesto = Len("Prova di scrittura scorrevole in un TextBox")
    
    Label1.Caption = Left("Prova di scrittura scorrevole in una Label", i)
    Text1.Text = Left("Prova di scrittura scorrevole in un TextBox", i)
    Text1.SelStart = LTesto

    i = i + 1

End Sub

P.S. la Lbl deve essere impostata AutoSize=True

[cleaner]

ottimoooo!! grassie mille