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 |