Collapse

Private Sub Form_Unload(Cancel as Integer)
Dim counter as Integer
Dim I as Integer
counter = me.Height

Do: DoEvents
counter = counter - 10
me.Height = counter
me.Top = (screen.Height - me.Height) / 2
Loop Until counter <= 10

I = 15
counter = me.Width

Do: DoEvents
counter = counter + I
me.Width = counter
me.Left = (screen.Width - me.Width) / 2
I = I + 1
Loop Until counter >= screen.Width
End
End Sub