Proje çalıştırıldığında form sol üst köşeden sağa ve aşağıya doğru kayarak açılıyor...
Eklenecek nesne; timer1
(Timer1'in Interval özelliğini 1000 yapıyoruz)
Private Sub Form_Load()
    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