1 Command button 4 timerle HeM acılışta hem butona basınca titreştirmek
Dim Hareket As Integer

Private Sub Command1_click()
Hareket = 222
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

Dim s1 As Integer


For s1 = 21 To 30

Hareket = 222
Timer1.Enabled = True


Next


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