Programalama > VISUAL BASIC

Titreyen form
Private Sub Form_Load()
Timer1.Interval = 22

End Sub

Private Sub Timer1_Timer()
'Move Form Down
    Form1.Top = Form1.Top + 50
    'Move Form Up
    Form1.Top = Form1.Top - 50
    'Move Left
    Form1.Left = Form1.Left - 50
    'Move Form Right
    Form1.Left = Form1.Top + 50

End Sub