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

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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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