• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This code makes form title to appear char by char from left to right. Great for application start

This code makes form title to appear char by char from left to right. Great for application start

This code makes form title to "appear" char by char from left to right. Great for application startup. Few lines of code. Ideal for beginners.

Rate This code makes form title to appear char by char from left to right. Great for application start

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Cont As Integer
Const Title = "Put your text here!"

Private Sub ScrollTitle_Timer()

   Cont = Cont + 1
   Me.Caption = Me.Caption & Mid(Title, Cont, 1)
   If Cont = Len(Title) Then ScrollTitle.Enabled = False
         
End Sub

Private Sub Form_Load()
   
   ScrollTitle.Interval = 20 'Scrolling Interval
   ScrollTitle.Enabled = True
   
End Sub