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!
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
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 Upload
Original Comments (3)
Recovered from Wayback Machine