Построить график функции в picturebox с возможностью изменения значений

Option Explicit
Dim a  As Double, b As Double, c  As Double, t As Double
Private Sub Command1_Click()
   a = Text1.Text: b = Text2.Text: c = Text3.Text
   Picture1.Cls
   Picture1.ForeColor = vbBlue
   Picture1.DrawWidth = 2
   Picture1.Line (0, 10)-(0, -10)
   Picture1.Line (10, 0)-(-10, 0)
   Picture1.DrawWidth = 3
   
   For t = Text4.Text To Text5.Text Step 0.0005
       Picture1.PSet (x(t), y(t)), vbRed
   Next t
   
End Sub
Private Sub Form_Load()
    Picture1.Scale (-10, 10)-(10, -10)
End Sub
Private Function x(ByVal t As Double) As Double
    x = a * t + b * Sin(c * t)
End Function
Private Function y(ByVal t As Double) As Double
    y = a - b * Cos(c * t)
End Function

 For t = Text4.Text To Text5.Text Step 0.0005
       Picture1.PSet (x(t), y(t)), vbRed

Sub Main()
 
Dim X(1 To 1000) As Double
Dim Y(1 To 1000) As Double
 
    a# = [C2]
    b# = [C3]
    c# = [C4]
    
    '::: Çàïîëíåíèå
    
    n% = 0
    
    For t# = -10 To 10 Step 0.1
    
        n% = n% + 1
    
        X(n%) = a# * t# + b# * Sin(c# * t#)
        Y(n%) = a# - b# * Cos(c# * t#)
    
    Next t#
    
    '::: Ïðèâåäåíèå ê ðàâíîìåðíîé øêàëå
    
    xmin# = X(1)
    xmax# = X(1)
    
    For i% = 2 To n%
    
        If X(i%) > xmax# Then xmax# = X(i%)
        If X(i%) < xmin# Then xmin# = X(i%)
    
    Next i%
    
    dx# = (xmax# - xmin#) / 800
    
    j% = 0
    
    For xx# = xmin# To xmax# Step dx#
    
        For k% = 1 To n% - 1
            If X(k%) <= xx# And X(k% + 1) >= xx# Then
               kk# = (Y(k% + 1) - Y(k%)) / (X(k% + 1) - X(k%))
               yy# = Y(k%) + (xx# - X(k%)) * kk#
               j% = j% + 1
               Cells(j%, 28).Value = xx#
               Cells(j%, 29).Value = yy#
               Exit For
            End If
        Next k%
        
    Next xx#
 
End Sub

Sub Main()
 
Dim X(1 To 1000) As Double  ' массив для x
Dim Y(1 To 1000) As Double  ' массив для y
 
    a# = [C2]  ' параметры кривой берем с 
    b# = [C3]  ' из соотв. ячеек
    c# = [C4]  ' рабочего листа
    
    '::: Заполнение
    
    n% = 0
    
    For t# = -10 To 10 Step 0.1  ' цикл по t 
    
        n% = n% + 1  ' номер точки
    
        X(n%) = a# * t# + b# * Sin(c# * t#)   ' очередной х
        Y(n%) = a# - b# * Cos(c# * t#)         ' очередной y
    
    Next t#
    
    '::: Приведение к равномерной шкале
    
    xmin# = X(1)
    xmax# = X(1)
    
    ' ищем минимум и максимум простым перебором
    ' в одном цикле 
 
    For i% = 2 To n%
    
        If X(i%) > xmax# Then xmax# = X(i%)
        If X(i%) < xmin# Then xmin# = X(i%)
    
    Next i%
    
    dx# = (xmax# - xmin#) / 800  ' делим отрезок [xmin,xmax] на 800 точек
    
    j% = 0
    
    For xx# = xmin# To xmax# Step dx# 
 
        ' переменная xx проходит от xmin до xmax с РАВНОМЕРНЫМ шагом
    
        For k% = 1 To n% - 1
 
             ' для очередной xx находим две соседние точки x[k] и x[k+1],
             ' между которыми находится xx
 
            If X(k%) <= xx# And X(k% + 1) >= xx# Then
 
               ' kk - угловой коэффициент прямой, соединяющей 
               ' точки (x[k],y[k]) и (x[k+1],y[k+1])
 
               kk# = (Y(k% + 1) - Y(k%)) / (X(k% + 1) - X(k%))
 
               ' yy - значение, соответствующее точке xx 
 
               yy# = Y(k%) + (xx# - X(k%)) * kk#
 
               ' заносим пару xx,yy на лист в область данных диаграммы
 
               j% = j% + 1
               Cells(j%, 28).Value = xx#
               Cells(j%, 29).Value = yy#
 
               Exit For  ' обработали точку - выход из цикла
 
 
            End If
 
        Next k%
        
    Next xx#
 
End Sub