Dim p1 As New PointF(50, 50)
    Dim p2 As New PointF(250, 250)
    Dim p3 As PointF = p1
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawLine(Pens.Red, p1, p2)
        e.Graphics.DrawRectangle(Pens.Green, p3.X, p3.Y, 1, 1)
    End Sub
 
    Dim cnt As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        p3 = New Point(p3.X + (p2.X - p1.X) / 10, p3.Y + (p2.Y - p1.Y) / 10)
        Refresh()
        cnt += 1
        If cnt = 10 Then Timer1.Stop()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist