• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Scrolls the caption in the title bar of a form.

Scrolls the caption in the title bar of a form.

Scrolls the caption in the title bar of a form.

Rate Scrolls the caption in the title bar of a form.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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