• Home
 · 
• Custom Controls/Forms/Menus
 · 
• quite a cool way to load a form....well i thought so :)

quite a cool way to load a form....well i thought so :)

quite a cool way to load a form....well i thought so :)

Rate quite a cool way to load a form....well i thought so :)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Label2_Click()
Me.WindowState = 1
End Sub

Private Sub Label3_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
Counter = Counter + 50   'amount
Form1.Height = Counter
Form1.Width = Counter
If Counter = "3500" Then
Timer1.Enabled = False
End If
End Sub