[VB6] Realizzare un testo scorrevole

[LMondi]

Prova il seguente codice :

Dim sTesto As String, btStart As Byte
Private Sub Form_Load()
sTesto = "Prova testo scorrevole in una Lbl"
btStart = 1
End Sub
Private Sub Timer1_Timer()
    Label1.Caption = Right(Striscia, Len(sTesto) - btStart) + Left(sTesto, btStart)
    btStart = btStart + 1
    If btStart > Len(sTesto) Then btStart = 1
End Sub