Timer ‘ın Interval özelliğini 1000 yapıyoruz.
Me.Height = 0
Me.Width = 0
For i = 1 To 100
Me.Width = Me.Width + i
Me.Height = Me.Height + i
Me.Show()
Me.Refresh()
Next i
Forma tıklayarakta bunları yazıyoruz. Hata çıkmaması lazım ...