[Black Rain]

Proje çalıştırıldığında form titremeye başlıyor..
Eklenecek nesneler; timer1
( Interval özelliğini 1000 YAPMIYORUZ!! )

Private Sub Form_Load()
         Timer1.Interval = 22
End Sub

Private Sub Timer1_Timer()
         Form1.Top = Form1.Top + 50
         Form1.Top = Form1.Top - 50
         Form1.Left = Form1.Left - 50
         Form1.Left = Form1.Top + 50
End Sub