Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer, run As Long
run = Me.Height / 5
For i = 1 To run
doevents
Me.Height = Me.Height - 5
If Me.Height < 30 Then GoTo Hscroll
Next i
Hscroll:
run = Me.Width / 20
doevents
For i = 1 To run
Me.Width = Me.Width - 20
Next i
End Sub