窗体动态关闭效果

'在窗体上放置两个Timer控件

Option Explicit
Private Sub Form_Load()
    Timer1 = False: Timer1.Interval = 50
    Timer2 = False: Timer2.Interval = 50
    Form1.ScaleMode = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
    Timer1 = True
    If WindowState Then End
End Sub

Private Sub Timer1_Timer()
    Me.Height = Me.Height - 150
    If Me.Height <= 510 Then
        Timer1 = False
        Timer2 = True
    End If
End Sub

Private Sub Timer2_Timer()
    Me.Width = Me.Width - 200
    If Me.Width <= 1845 Then
        Timer2 = False
        End
    End If
End Sub