• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This is a cool form effect, it shrinks the form, both height and width.

This is a cool form effect, it shrinks the form, both height and width.

This is a cool form effect, it shrinks the form, both height and width.

Rate This is a cool form effect, it shrinks the form, both height and width.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()
'Code thought up for no reason at all by VisualBlind
'No matter what height/width your form is, it will always
'shrink the form :)
'This would be great for a about windows after the user closes it
'you should put this in the form/unload procedure...

Do Until Form1.Height = 405 And Form1.Width = 1680
Form1.Height = Form1.Height - 1
Form1.Width = Form1.Width - 1
Loop
Unload Me
End Sub