merhaba, ben seken bir cisim yapmak istiyorum vb de. cismime araba adını verdim. ve kodlar şu şekilde


"""""""""""


PublicClassForm1


PrivateSub Timer1_Tick(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Timer1.Tick


Dim oran AsDouble = 15


If LineShape3.Y1 > araba.Top + araba.Height Then


If oran = oran Then






araba.Top = araba.Top + oran


Timer1.Start()




EndIf


ElseIf araba.Top + araba.Height = LineShape3.Y2 Then


If oran = oran Then






oran = oran - 1


araba.Top = 220 - oran




EndIf


EndIf


EndSub


PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click






Timer1.Start()




EndSub


EndClass


""""""""""""""""""""""""""""""




yavaş yavaş sekerek durmasını istiyorum, yardımlarınızı bekliyorum
__________________