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.

7 Years
Discussion Span
Last Post by dnk

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
        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 :)

Votes + Comments
Good eyes for this..
Really helpfull person.
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.