Помогите построить график функции по формуле - VB

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

Добрый день. Помогите построить график функции по формуле {x = aCos (t) + tSin(ct) y = aSin (t) - tCos(ct) Сам новичок, и с такими графиками никогда не сталкивался. Наверно, сложно

Решение задачи: «Помогите построить график функции по формуле»

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

                            Private Sub Form_Load()
     Dim x As Single, y As Single, a As Single, t As Single, c As Single
     c = 7: a = 3
     Me.Show
     AutoRedraw = True: ForeColor = vbBlue: DrawWidth = 2
     Scale (-10, 10)-(10, -10)
     Line (-10, 0)-(10, 0): Line (0, -10)-(0, 10)
     ForeColor = vbRed: DrawWidth = 3
     For t = -5 To 5 Step 0.001
         x = a * Cos(t) + t * Sin(c * t)
         y = a * Sin(t) - t * Cos(c * t)
         PSet (x, y)
     Next t
     
End Sub
                        