ögrenmek itedigim mesala bir cizgi var ve bir tus ben tusa bastıgımda gizginin tusa dogru gelmesini nasıl saglayabilirim yani kısaca tusa basıcam cizgi yavas yavas tusa gelecek yardım ederseniz sevinirim iyi gunler.

En basit ve sabit yolu; Private Sub Command1_Click Line1. X1 = Line1. X1 + 30 Line1. X2 = Line1. X2 + 30 End Sub

bu kodun işini görmesi lazım eğer istediğin bu ise - bir komut butonu çiz bu butonu çift tıkla ve aşagıdaki kodu oraya yapıştır. -ve bir line çiz onunda ismi line1 olacak değilse ismi ne ise onu aşagıdaki kodda bulunan &quot;line1&quot; yerine senin çizdiğin çizginin adını yazmalısın. butonu tıkladığında çizgi yaklaşacaktır. sol = Command1. Left ust = Command1. Top soluzak = sol - Line1. X1 If soluzak &lt; 0 Then If Abs &lt;&gt; 0 Then Line1. X1 = Line1. X1 - 100 'buradaki 100 değeri bir seferdeki yakınlaşma ölçüsüdür. Line1. X2 = Line1. X2 - 100 End If GoTo 5 End If Line1. X1 = Line1. X1 + 100 Line1. X2 = Line1. X2 + 100 5 Bu kodla her tıklamada çizgi butona yaklaşacak 100 değeri kadar ama eğer tek tıklamada kayarak gelmesini istersen timer nesnesi kullanman lazım istersen onun kodunuda yazıp gönderirim kolay gelsin..

Private Sub Form_Load Timer1. Interval = 500 Timer1. Enabled = False End Sub Private Sub Timer1_Timer If Line1. Top &gt; 1000 And Line1. Left &gt; 1000 then Line1. Top = Line1. Top - 1 Line1. Left = Line1. Left - 1 End If End Sub Private Sub Command1_Click Timer1. Enabled = True End Sub Bas butona çalışsın.

olmadı yinede saol

En basit ve sabit yolu; Private Sub Command1_Click Line1. X1 = Line1. X1 + 30 Line1. X2 = Line1. X2 + 30 End Sub demissin fakat bu sekilde tusa gitmez benim istedigim oyle olmasıydı neyse onemli degil yine de saolun teşekkurler