Skip to main content

AccessTr.neT


Etiketler
Yazar: arzuu - Cevaplar: 10 - İzleme: 4800
Titreyen form
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

Task