• Home
 · 
• Custom Controls/Forms/Menus
 · 
• A form comes in a resizable manner like animation

A form comes in a resizable manner like animation

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




Rate A form comes in a resizable manner like animation

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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