Составить программу передвижения шара вдоль задающей с регулируемой скоростью

Public Class Form1
    Dim x, a, b, st As Double
    Dim w, h, mx, my, xc, yc As Integer
    Dim g As Graphics
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PictureBox1.BackColor = Color.LightCyan 'Цвет фона
        Oval.Parent = PictureBox1
        'параметры холста
        w = PictureBox1.Width : h = PictureBox1.Height
        Dim bmp = New Bitmap(w, h)
        g = Graphics.FromImage(bmp)
 
        'Расположение системы координат в окне
        Dim xb, xe, yb, ye As Double
        xb = -6 : xe = 6 : yb = 3 : ye = -3 'границы системы координат по x,y
        Dim xlen, ylen As Integer
        xlen = Math.Abs(Int(xb)) + Math.Abs(Int(xe)) : ylen = Math.Abs(Int(yb)) + Math.Abs(Int(ye)) 'длина между границами по x,y
        mx = Math.Min(w / xlen, h / ylen) : my = mx 'масштаб по x,y(сколько пикселей в одной единице)
 
        'границы в пикселях
        Dim xbp, xep, ybp, yep As Integer
        xbp = (w - mx * xlen) / 2 : xep = (w + mx * xlen) / 2
        ybp = (h - my * ylen) / 2 : yep = (h + my * ylen) / 2
        xc = xbp + mx * Math.Abs(Int(xb)) : yc = ybp + my * Math.Abs(Int(yb)) 'координаты центра в пикселях
 
        'оси
        Draw()
        drawGraph(New Pen(Color.Black), -6, 6, 0.05) ' нарисовать график
 
        PictureBox1.Image = bmp
 
        a = -6 : b = 6 : st = TrackBar1.Value / 20
        x = a
        Timer1.Enabled = True
 
    End Sub
 
    Private Sub Draw()
        Dim p = New Pen(Color.Black)
        g.DrawLine(p, New Point(0, yc), New Point(w, yc))
        g.DrawLine(p, New Point(xc, 0), New Point(xc, h))
 
        'x
        Dim i As Integer
        i = xc - mx
        Do While (i > 0)
            g.DrawLine(p, New Point(i, yc - 2), New Point(i, yc + 2))
            i -= mx
        Loop
 
        i = xc + mx
        Do While (i < w)
            g.DrawLine(p, New Point(i, yc - 2), New Point(i, yc + 2))
            i += mx
        Loop
 
        'y
        i = yc - my
        Do While (i > 0)
            g.DrawLine(p, New Point(xc - 2, i), New Point(xc + 2, i))
            i -= my
        Loop
 
        i = yc + my
        Do While (i < h)
            g.DrawLine(p, New Point(xc - 2, i), New Point(xc + 2, i))
            i += my
        Loop
 
        'подписываем оси
        g.DrawString("y", New Font("Arial", 11), Brushes.Black, New PointF(xc + 10, 10))
        g.DrawString("x", New Font("Arial", 11), Brushes.Black, New PointF(w - 20, yc - 40))
 
        'Стрелки на осях
        'x
        g.DrawLine(p, New Point(w - 10, yc + 5), New Point(w, yc))
        g.DrawLine(p, New Point(w - 10, yc - 5), New Point(w, yc))
        'y
        g.DrawLine(p, New Point(xc, 0), New Point(xc + 5, 10))
        g.DrawLine(p, New Point(xc, 0), New Point(xc - 5, 10))
 
    End Sub
    Function f(ByVal x As Double) As Double
        f = x ^ 2
 
    End Function
    Private Sub drawGraph(ByVal p As Pen, ByVal a As Double, ByVal b As Double, ByVal st As Double)
        For x As Double = a To b Step st
            g.DrawLine(p, New Point(xc + Int(mx * x), yc - Int(my * f(x))), New Point(xc + Int(mx * (x + st)), yc - Int(my * f(x + st))))
        Next
    End Sub