Titreyen form

Son güncelleme: 06.02.2007 15:27
  • 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
#03.03.2006 21:18 0 0 0
  • bi bakalım
#04.11.2006 13:24 0 0 0
  • yok heç güzel deil ama yinede emegine saglık
#04.11.2006 13:25 0 0 0
  • sağol ama pek güzel değil
#05.02.2007 12:13 0 0 0
  • Teşekkürler Ellerine Sağlık
#06.02.2007 15:27 0 0 0