Private
Sub
Cmd1çıkış_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
Form_Load()
Form1.Caption =
"Form Move"
Form1.Height = 0
Timer1.Interval = 200
Timer1.Enabled =
True
Timer1_Timer()
On
Error
Resume
Next
For
x = 0
To
Form1.Height + 2000
Form1.Height = x
x
y = 100
Form1.Width + 1500
Form1.Width = y
y
False