• Home
 · 
• Miscellaneous
 · 
• A Cool Form Scroller

A Cool Form Scroller

A really cool code that will first - make the form expand down, then second - it will expand out sideways! No need to customize it to the size you want, it does that automatically. Just pop it in your code. Really easy - good beginner's code!

Assumes
Put a timer(Timer1) on the form... that's it.

Rate A Cool Form Scroller

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Dim frmHeight As Integer
Dim frmWidth As Integer
Private Sub Form_Load()
Timer1.Interval = 1
frmHeight = Form1.Height
frmWidth = Form1.Width
Form1.Height = 100
Form1.Width = 100
End Sub
Private Sub Timer1_Timer()
While Form1.Height < frmHeight
Form1.Height = Form1.Height + 8
Wend
While Form1.Width < frmWidth
Form1.Width = Form1.Width + 8
Wend
Timer1.Enabled = False
End Sub