Cool Form Closing Effect

Just a snippet I wrote. Put this code in Form Unload event to test.

'---
Dim i As Long
Me.Top = (Screen.Height / 2) - (Me.Height / 2)
Me.Left = (Screen.Width / 2) - (Me.Width / 2)
For i = Me.Left To (Screen.Width / 2) Step 10
   Me.Height = Me.Height - 15
   Me.Width = Me.Width - 20
   Me.Left = Me.Left + 100
   DoEvents
Next
Unload Me
'---