Shrink the window and exit to the right in 15 lines of code

by Alan Jovellanos (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 5^th March 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Shrink the window and exit to the right in 15 lines of code



Private Sub Form_Unload(Cancel As Integer)
     Do
          Me.Height = Me.Height - 20
          DoEvents
     Loop Until Me.Height = 405
     Do
          Me.top = Me.top + 20
          Me.Move Me.Left, Me.top
          DoEvents
     Loop Until Me.top > Screen.Height - 500
     Do
          Me.Left = Me.Left + 20
          Me.Move Me.Left, Me.top
          DoEvents
     Loop Until Me.Left > Screen.Width
     End
End Sub

Download this snippet Add to My Saved Code

Shrink the window and exit to the right in 15 lines of code Comments

No comments have been posted about Shrink the window and exit to the right in 15 lines of code. Why not be the first to post a comment about Shrink the window and exit to the right in 15 lines of code.

Shrink the window and exit to the right in 15 lines of code

Shrink the window and exit to the right in 15 lines of code Comments

Post your comment

Difficulty