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
Bu hazır kod'a ilk yorumu siz yapın!