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.
' 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
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 1,063
Downloads 464
CodeID
DB ID
