• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Unload a Form With a Special Effect

Unload a Form With a Special Effect

Unload a Form With a Special Effect

Rate Unload a Form With a Special Effect

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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