by Chinmaya Kumar Mishra. This code is dedicated to my parents (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 13th June 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A form comes in a resizable manner like animation
API Declarations
'form name form1
'timer name timer1
'simple place this code in view code window
fheight = 5000
fwidth = 5000
Form1.Height = 0
Form1.Width = 0
step = 50
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Call Size1
If step >= fheight Then
Timer1.Enabled = False
End If
step = step + 300
Form1.Height = step
Form1.Width = step
End Sub
Sub Size1()
Form1.Left = (Screen.Width - Me.Width) / 2
Form1.Top = (Screen.Height - Me.Height) / 2
End Sub