Programming FAQ -- show off your cool tips here!

[Bongo]

Armbruster: Please take this msg not to serious

Option Explicit
 
Private Sub Form_Unload(Cancel As Integer)
Dim intCounter As Integer
Dim intMax As Integer
Dim intHeight As Integer
Dim intWidth As Integer
 
    intWidth = Me.Width
    intHeight = Me.Height
    If intWidth > intHeight Then
        intMax = intWidth
    Else
        intMax = intHeight
    End If
    
    On Error Resume Next 
 
    For intCounter = intMax To 1 Step -1
        Me.Width = Me.Width - 1
        Me.Height = Me.Height - 1
    Next intCounter
End Sub

This code was originally posted by Armbruster - I changed a few
things - so if I would claim now I wrote this procedure first who
is right??

To make it clear again I DID NOT write this procedure I only
wand to use it to show my point.

Face it if I would ask 20 developers to write a procedure which
close an app by "scrolling away" we would have at lease 2
simelare procedures.