Shrinks the form, Pushes the form to the bottom of the screen, and exit's to the Right.

by Alexander Drankus ((Devry Chicago)) (2 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 23^rd November 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Shrinks the form, Pushes the form to the bottom of the screen, and exit's to the Right.




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

Download this snippet Add to My Saved Code

Shrinks the form, Pushes the form to the bottom of the screen, and exit's to the Right. Comments

No comments have been posted about Shrinks the form, Pushes the form to the bottom of the screen, and exit's to the Right.. Why not be the first to post a comment about Shrinks the form, Pushes the form to the bottom of the screen, and exit's to the Right..

Shrinks the form, Pushes the form to the bottom of the screen, and exit's to the Right.

Shrinks the form, Pushes the form to the bottom of the screen, and exit's to the Right. Comments

Post your comment

Difficulty