Построить строфоиду - VB

Формулировка задачи:

Помогите, пожалуйста, построить график строфоиды на VB, заданной формулой {(x=(at^2)/(b+t^2 ) y=a (t(t^2-b))/(b+t^2 )) Всю голову сломала, не представляю как делать(

Решение задачи: «Построить строфоиду»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Dim l As Integer, a, b, t As Single, i As Long, x, y As Single, shag
Public mycol
Private Sub Command1_Click()
Picture1.Cls ' очищение формы
Picture1.Scale (-10, 10)-(10, -10) ' масштаб
shag = 0.09 'Text5.Text ' параметр шага
 
Picture1.Line (-10, 0)-(10, 0), QBColor(1) 'ось OX
For l = -10 To 10 Step 2
Picture1.PSet (l, 0) 'построение оси
    Picture1.Print l 'рисуем на графике цифры
Next
Picture1.Line (0, 10)-(0, -10), QBColor(1) 'ось OY
For l = -10 To 10 Step 2
    Picture1.PSet (0, l) 'построение оси
Picture1.Print l 'рисуем на графике цифры
Next
 a = 3
 b = 5
 For t = -20 To 20 Step shag '     While a <= 10
 
x = (a * t * t) / (b + t * t)
y = a * t * (t * t - b) / (b + t * t)
Picture1.PSet (x, y), mycol 'построение графика
 
For i = 1 To 100000: Next ' задержка рисования
'a = a + shag
 Next '    Wend
 
 End Sub
                        