Titreyen form

1 2
16/01/2010, 12:47

arzuu

Eklenecek nesneler; timer1

Kod:
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
16/01/2010, 13:01

Bilgisayarcı

Güzel örnek.
16/01/2010, 13:06

ercansahin

Paylaşımlarınız için teşekkürler.
16/01/2010, 14:32

Puletin

Teşekkürler sn.arzuu
16/01/2010, 15:37

accessman

teşekkürler
timer1 nasıl eklenecek
16/01/2010, 15:45

arzuu

propertiesden ekleyebilirsin accessman
1 2