Автоматическое плавное рисование графа - Visual Basic .NET - Ответ 3421456

Imports System.Math
Public Class linePaintAnimation
    Private g As Graphics
    Private start As Point
    Private endd As Point
    Private myTimer As New Timer
    Dim mylen As Integer
    Dim p As New Pen(Color.Green, 3)
    Dim pp As New Point
    Sub New(ByRef g As Graphics)
        Me.g = g
        myTimer.Interval = 10
        myTimer.Stop()
        AddHandler myTimer.Tick, AddressOf Timer1_Tick
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Timer, ByVal e As System.EventArgs)
        Static d As Integer = 2
        If d <= mylen Then
            g.DrawLine(p, start, pp)
            d += 1
            pp.X = start.X + d * (endd.X - start.X) / Sqrt((endd.X - start.X) ^ 2 + (endd.Y - start.Y) ^ 2)
            pp.Y = start.Y + d * (endd.Y - start.Y) / Sqrt((endd.X - start.X) ^ 2 + (endd.Y - start.Y) ^ 2)
        Else
            sender.Stop()
             d = 2
        End If
 
    End Sub
    Public Sub run(ByVal start As Point, ByVal endd As Point)
        Me.start = New Point(start)
        Me.endd = endd
        mylen = Int(System.Math.Sqrt(((start.X - endd.X) ^ 2 + (start.Y - endd.Y) ^ 2)))
        pp.X = start.X + (endd.X - start.X) / Sqrt((endd.X - start.X) ^ 2 + (endd.Y - start.Y) ^ 2)
        pp.Y = start.Y + (endd.Y - start.Y) / Sqrt((endd.X - start.X) ^ 2 + (endd.Y - start.Y) ^ 2)
        myTimer.Start()
    End Sub 
    End Sub
End Class

 Dim line As New linePaintAnimation(Panel_main.CreateGraphics)
line.run(new point(10,10), new point(10,20))