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 404 Downloads 143

VB6 UI
ANmarAmdeen
755
Attachments
Revisions

v1.0