Formun uzerine bir textbox ve timer yerleştirin ve textbox'ın left ozelliğini koddaki sayılara gore yaptıktan sonra bunu yordamlara gecirin

Kod:
Dim artis As Integer Dim b As Integer Private Sub Form_Load() Timer1.Enabled = True artis = 100 b = 100 End Sub Private Sub Timer1_Timer() If Text1.Left < 0 And artis < 7080 Then artis = artis * (-1) Text1.Left = Text1.Left + artis If Text1.Left > 7080 And artis > 0 Then artis = artis *(-1) Text1.Left = Text1.Left + artis

__________________