[RESOLVED] form caption title move & move??

[cxj98]

does everybody who can provide source code let me know how to make form caption title move & move??

add a timer control to count it moving.

caption title from left side move to right side, then form right side move to left side. repeat and repeat.

thanks!

here is small example which is title run & run, but I need it move & move.:

Public tit1 As String

Private Sub Form_Load()
tit1 = "This title can run and run!..........    "
Form1.Caption = title1
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
L = Len(tit1)
tit1 = Mid(tit1, 2, L - 1) + Left(tit1, 1)
Form1.Caption = tit1 
End Sub