• Home
 · 
• Custom Controls/Forms/Menus
 · 
• 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

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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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