by oxy (2 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 19th March 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Makes a form expand to desired size on load.
'otherwise the starting number + 10 might not add up to the number
'you want it to start at
Private Sub Form_Load()
Form1.Height = 450
End Sub
Private Sub Timer1_Timer()
If Form1.Height = 2250 Then
Form1.Timer1.Enabled = False
Else
Form1.Height = Form1.Height + 10
End If
End Sub