VB - Closing child forms with a zoom out effect

[maged]

just place this code in the form queryunload event

Me.Picture = LoadPicture("")
DoEvents
Me.BackColor = vbBlack
On Error Resume Next
Dim i As Long
For i = 1 To Me.Height
    Me.Top = Me.Top + 1
    Me.Height = Me.Height - 2
    Me.Left = Me.Left + 1
    Me.Width = Me.Width - 2
Next
DoEvents

hope u like it

[MartinLiss]

I changed your Subject to include "VB".

[BrandonTurner]

adding a doevents in the loop lets the screen update where the form is no long at instead of letting it just be gray until the program closes.