Private Sub Form_Unload(Cancel As Integer)
Dim counter As Integer Dim p As Integer counter = Me.Height / 1 Me.BackColor = vbBlack Me.Caption = "Bye!" Top = Screen.Height / 2 - Height / 2 Left = Screen.Width / 2 - Width / 2 Do: DoEvents counter = counter - 9 Me.Top = counter Me.Height = (Screen.Width - Me.Width) / 11 Me.Width = (Screen.Height - Me.Height) / 11 Loop Until counter <= 9 p = 15 counter = Me.Height Unload Me End Sub |