• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Form Move?

Form Move?

Form Move?

Rate Form Move?

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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