by Anonymous (267 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 2nd December 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Form Move?
Form1.Caption = "Form Move"
Form1.Height = 0
Form1.Width = 1680
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
For x = 0 To Form1.Height + 10000
Form1.Height = x
Next x
For y = 1680 To Form1.Width + 10400
Form1.Width = y
Next y
Timer1.Enabled = False
End Sub