Private Sub Form_Unload(Cancel As Integer)
Dim counter As Integer Dim Disk As Integer counter = Me.Height Do: DoEvents counter = counter - 9 Me.Top = counter Me.Height = (Screen.Width - Me.Width) / 2 Loop Until counter <= 9 Disk = 15 counter = Me.Height Unload Me End Sub |