Построить график функции заданный параметрически - VB

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

помогите плиз, а то я больше уже запуталась. мне необходимо построить график функции: y(t)=5*(1-cos(t)) x(t)=5*(1-sin(t)) изобразить в Picture найти наименьшее и наибольшее значение функции для построения. вот мой код, но он неправильно рисует. подскажите

                    Листинг программы
                
 
                        
                          
                    
 Private Sub Command1_Click()
 Dim x, t, y_t, Min_y, Max_y As Single, y As Single, i As Single
 x = 5 * (1 - Sin(t))
 t = (Sin(5 + x)) ^ (-1)
 y_t = 5 * (1 - Cos(t))
 Min_y = 0
 Max_y = 0
 For x = -15 To 15
 y_t = 5 * (1 - Cos(t))
 If y_t < Min_y Then Min_y = y_t
 If y_t > Max_y Then Max_y = y_t
 Next x
 Print "Max = "; Max_y; "Min_y ="; Min_y
 Picture1.Scale (-15, Max_y)-(15, -0.5)
 Picture1.Line (-15, 0)-(15, 0), vbBlack 'ocb X
 Picture1.Line (0, Min_y)-(0, Max_y), vbBlack 'ocb Y
 For x = -15 To 15 Step 1
 Picture1.Line (x, 0)-(x, 15), vbBlack
 Picture1.CurrentX = x + 1
 Picture1.CurrentY = -0.02
 Print
 Picture1.Print Format(x, "0")
 Next x
 
 For y = Min_y To Max_y Step 1
 Picture1.Line (-15, y)-(15, y), vbBlack
 Picture1.CurrentX = 1
 Picture1.CurrentY = y - 1
 Picture1.Print Format(y, "0")
 Next y
 For x = -15 To 15 Step 0.5
 y_t = 5 * (1 - Cos(t))
 'Picture1.PSet (x, y_t), vbBlue
 'PSet (x, -y_t), vbBlue
 Picture1.Circle (x, y_t), 5, RGB(255, 0, 0)
 Next x
 End Sub

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

textual
                            Листинг программы 
                        
Private Sub Command1_Click()
 
        Me.Picture1.Line (0, 30)-(0, -30), QBColor(1)
        Me.Picture1.Line (-30, 0)-(39, 0), QBColor(1)
 
        For t# = 0 To 20 Step 0.01
        
            'Y# = 5 * (1 - Cos(t))
            'X# = 5 * (1 - Sin(t))
        
            Y# = 25 * (Cos(t))
            X# = 25 * (Sin(t))
        
            Me.Picture1.PSet (X#, Y#), QBColor(12)
        
        Next t#
 
End Sub
 
Private Sub Form_Load()
        
        Me.Picture1.Scale (30, 30)-(-30, -30)
 
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
        Me.Label1.Caption = "X=" & Format$(X, "0.000") & " Y=" & Format$(Y, "0.000")
 
End Sub