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?
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))
Me.Caption = t
Private Sub Timer1_Timer()
ScrollignText "This is a scrolling text"