Animated form exit

Exit form with shrinking
Shrinks the form, Pushes the form to the bottom of the screen, and exit's to the Right.
I know this is old (VB6), but the idea here is that we can use it in almost any form-based application.


Public

Tested

Not My Work
' Place this code in your unload event
Private Sub Form_Unload(Cancel As Integer)
Do Until Me.Height <= 435
Me.Height = Me.Height - 20
Loop
Do Until Me.top > Screen.Height - 500
Me.top = Me.top + 20
Loop
Do Until Me.Left > Screen.Width
Me.Left = Me.Left + 20
Loop
End
End Sub

Views 276 Downloads 88

VB6 UI
ANmarAmdeen
727
Attachments
Revisions

v1.0