Full Versiyonu Görmek İçin Tıklayınız ---> Titreyen Pencere

Yardım Arama Üye Listesi Msn Al

projenize 4 adet timer 1 adet command buton ekleyin alttaki kodu yapıştırın tamamdır.

Dim Hareket As Integer

Private Sub Command1_Click()
Hareket = 200
Timer1.Enabled = True

End Sub

Private Sub Form_Load()
Timer1.Interval = 20
Timer2.Interval = 20
Timer3.Interval = 20
Timer4.Interval = 20
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Hareket = 200
End Sub

Private Sub Timer1_Timer()
'Aşağıya doğru
Form1.Top = Form1.Top + Hareket
Hareket = Hareket - 5
Timer2.Enabled = True
Timer1.Enabled = False
If Hareket <= 0 Then Durdur
End Sub

Private Sub Timer2_Timer()
'Yukarıya doğru
Form1.Top = Form1.Top - Hareket
Hareket = Hareket - 5
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
'Sola doğru
Form1.Left = Form1.Left - Hareket
Hareket = Hareket - 5
Timer4.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer4_Timer()
'Sağa doğru
Form1.Left = Form1.Left + Hareket
Hareket = Hareket - 5
Timer1.Enabled = True
Timer4.Enabled = False
End Sub

Sub Durdur()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub