Hi All,

I try to make my caption text scrolling.
Actually, i already make it scrolling but after the last letter it would appear all of text and scrolling again.
I want the text scrolling one by one, after the last letter it following by the first letter.
How i can do that?

Any help would be appreciated.
Thank you.

Thank you for replying jx.
This how far i go with scrolling text :

Private Sub ScrollignText(msg As String)
    Dim t As Variant
    Static i As Integer
    i = i + 1
    If i = Len(msg) Then
        i = 0
    Else
        t = Mid(msg, i, Len(msg))
    End If
    Me.Caption = t
End Sub
Private Sub Timer1_Timer()
    ScrollignText "This is a scrolling text"
End Sub

Please help. Maybe i missing something here.

Change this line (at line # 8):

t = Mid(msg, i, Len(msg))

With this :

t = Mid(msg, i, Len(msg)) + Left(msg, i)

Hope it helps :)

Comments
Good eyes for this..
Really helpfull person.
This question has already been answered. Start a new discussion instead.