by Phillip De Suze (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 30th April 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Unload a Form With a Special Effect
VBcoders
For Help or Updates to This Code Please Contact me
through my Website http://pages.zdnet.com/figlip_dshoe/vbintandt
Our E-mail Me at [email protected]
Please Contact me Before you make Changes
This Effect works even if The Form is maximized or Minimized
Private Sub Shadow(frm As Form)
frm.WindowState = 0
frm.Left = 0
frm.Top = 0
For x = 1 To 5000 Step 500
frm.Left = x
frm.Top = x
Next x
For y = 5000 To 1 Step -500
frm.Left = y
frm.Top = y
frm.Left = x
frm.Top = x
Next y
For z = 0 To 10000 Step 500
frm.Height = z
frm.Left = z
frm.Width = z
frm.Top = z
frm.Left = x
frm.Top = x
frm.Left = y
frm.Top = y
Next z
For q = 10000 To 4000 Step -500
frm.Height = q
frm.Left = q
frm.Width = q
frm.Top = q
Next q
For d = 1 To 2000 Step 500
frm.Left = x
frm.Left = y
frm.Left = z
frm.Left = q
frm.Left = d
frm.Height = x
frm.Height = y
frm.Height = z
frm.Height = q
frm.Height = d
frm.Width = x
frm.Width = y
frm.Width = z
frm.Width = q
frm.Width = d
frm.Top = x
frm.Top = y
frm.Top = z
frm.Top = q
frm.Top = d
Next d
For k = 2000 To 1 Step -500
frm.Left = x
frm.Left = y
frm.Left = z
frm.Left = q
frm.Left = k
frm.Height = x
frm.Height = y
frm.Height = z
frm.Height = q
frm.Height = k
frm.Width = x
frm.Width = y
frm.Width = z
frm.Width = q
frm.Width = k
frm.Top = x
frm.Top = y
frm.Top = z
frm.Top = q
frm.Top = k
Next k
End
End Sub
Private Sub Command1_Click()
Call Shadow(Form1)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call Shadow(Form1)
End Sub