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

Etiketler:
Beğeniler: 0
Favoriler: 0
İzlenmeler: 905
favori
like
share
fiber_optic Tarih: 06.02.2007 16:27
Teşekkürler Ellerine Sağlık
canbeyli1 Tarih: 04.11.2006 14:25
yok heç güzel deil ama yinede emegine saglık
canbeyli1 Tarih: 04.11.2006 14:24
bi bakalım