just place this code in the form queryunload event

VB Code:
  1. Me.Picture = LoadPicture("")

  2. DoEvents

  3. Me.BackColor = vbBlack

  4. On Error Resume Next

  5. Dim i As Long

  6. For i = 1 To Me.Height

  7.     Me.Top = Me.Top + 1

  8.     Me.Height = Me.Height - 2

  9.     Me.Left = Me.Left + 1

  10.     Me.Width = Me.Width - 2

  11. Next

  12. DoEvents

hope u like it