Scrolling Caption Text

[dnk]

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.

[Jx_Man]

i already make it scrolling

Post the code..how far you doing this.

[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
    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.

[Jx_Man]

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

[Jx_Man]

Just give feedback if you have a problem

[dnk]

It's Working sir..Thank you very much.