Scroll form caption

by xz-Bit (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 10^th March 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Scroll form caption

API Declarations
'Place a timer Dim Tit& 'Public variable

Rate Scroll form caption



Sub ScrolTit()
  Tit = String(30, " ") & "I'm moving..." 'Set blank up to 30 chararcters long]
  'You can insert date and time fucntion here
  'Tit  =String(30, " "), & "The time is : " & Time
  'Tit = String(30, " "), & "Today's date : " & Date  
End Sub

Public Sub Form_Load()
  Timer1.Interval = 200 'set scrolling speed
  ScrolTit 'Start scrolling form caption
End Sub

Public Sub Timer1_Timer()
  Tit = Mid(Tit,2) & Left(Tit, 1)
  Me.Caption = Tit
End Sub

Download this snippet Add to My Saved Code

Scroll form caption Comments

No comments have been posted about Scroll form caption. Why not be the first to post a comment about Scroll form caption.

Scroll form caption

Scroll form caption Comments

Post your comment

Difficulty