by John W (7 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 25th January 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Scrolls the caption in the title bar of a form.
Dim SpaceNums As Integer
Timer1.Interval = 50
SpaceNums = Int(Me.Width / 50)
Me.Caption = "HELLO" & Space(SpaceNums) & "|"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Caption = Right(Me.Caption, Len(Me.Caption) - 1) & Left(Me.Caption, 1)
End Sub