• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Scroll form caption

Scroll form caption

Scroll form caption

API Declarations


'Place a timer
Dim Tit& 'Public variable




Rate Scroll form caption

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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