Kod:
Private Sub Timer1_Timer()
Form1.Height = 0
Form1.Width = 0
For i = 1 To 100
Form1.Width = Form1.Width + i
Form1.Height = Form1.Height + i
Form1.Show
Form1.Refresh
Next i
End Sub
Kod:
Form1.Height = 0
Form1.Width = 0
For i = 1 To 100
Form1.Width = Form1.Width + i
Form1.Height = Form1.Height + i
Form1.Show
Form1.Refresh
Next i