MoveCaption

Dim str As String
Dim leng As Integer

Private Sub form_load()
str = "Anil Iyengar" + Space(150)
leng = Len(str) - 1
End Sub

Private Sub Timer1_Timer()
str = Left(Right(str, 1), leng) + Left(str, leng)
Form1.Caption = str
End Sub