• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This will cause the form to shrink smaller and smaller and eventually close, giving your window a b

This will cause the form to shrink smaller and smaller and eventually close, giving your window a b

This will cause the form to shrink smaller and smaller and eventually close, giving your window a better closing animation. Speed can be

API Declarations


'Form Shrinking Animation Designed and Created by Atul Kumar Gupta
Dim I As Integer
Dim H As Integer
Dim W As Integer
Dim X As Integer 'Speed rate at which form shrinks



Rate This will cause the form to shrink smaller and smaller and eventually close, giving your window a b

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

I = 0
X = 50 'Decrease value to increase shrink speed/increase to slow down
H = Form1.Height
W = Form1.Width
Timer1.Enabled = False
Timer1.Interval = 2 'Decrease to speed up the shrink/increase to slow it down
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
I = I + 1
If I = X Then
    Unload Form1
Else
    Form1.Height = Form1.Height - Int(H / X)
    Form1.Width = Form1.Width - Int(W / X)
    Form1.Top = Form1.Top + Int((H / X) / 2)
    Form1.Left = Form1.Left + Int((H / X) / 2)
End If
End Sub