CodeItBetter Programming Another VB Programming Blog

'Forms - How to scroll the form caption
Option Explicit
 
Private Sub Form_Load()
    Form1.WindowState = 2
    Form1.Caption = Space(170) & "Welcome to my VB Program"
End Sub
 
Private Sub Timer1_Timer()
    Form1.Caption = Right(Form1.Caption, Len(Form1.Caption) - 1)
    If Form1.Caption = "" Then Form1.Caption = Space(170) & "Welcome to my VB Program"
End Sub