Построение графика функции

Private Sub Command1_Click()
Dim SngX As Single, bytI As Integer, y As Single ‘SngX –абсцисса точки, у - ордината
'Задание масштаба и новой системы координат
PicGraph.Scale (-9, 9)-(9, -9)
'Построение графика функции
For SngX = -9 To 9 Step 0.01
y = 3 * (Cos(SngX ^ 2 + 5)) ^ 2 / ((SngX + 10) ^ (3 / 5)) ‘Вычисление ординаты у
PicGraph.PSet (SngX, y), vbRed ‘Рисуем точку
Next SngX ‘Берём следующую абсциссу
'Рисуем ось Х
PicGraph.Line (-9, 0)-(9, 0)
For bytI = -9 To 9
PicGraph.PSet (bytI, 0) ‘Рисуем масштаб на осиХ
PicGraph.Print bytI ‘Подписываем масштаб
Next bytI
'Рисуем ось Y
PicGraph.Line (0, 9)-(0, -9)
For bytI = -9 To 9
PicGraph.PSet (0, bytI) ‘Рисуем масштаб на оси У
PicGraph.Print bytI ‘Подписываем масштаб
Next bytI 
End Sub

y=tan(x/3)

Private Sub Command1_Click()
Dim X As Single, I As Integer, y As Single
PicGraph.Scale (-9, 9)-(9, -9)
'Ïîñòðîåíèå ãðàôèêà ôóíêöèè
For X = -9 To 9 Step 0.01
y = Sin(X / 3) / Cos(X / 3)
PicGraph.PSet (X, y), vbRed 'Ðèñóåì òî÷êó
Next X 'Áåð¸ì ñëåäóþùóþ àáñöèññó
PicGraph.Line (-9, 0)-(9, 0)
For I = -9 To 9
PicGraph.PSet (I, 0) 'Ðèñóåì ìàñøòàá íà îñèÕ
PicGraph.Print I; 'Ïîäïèñûâàåì; ìàñøòàá
Next I
'Ðèñóåì îñü Y
PicGraph.Line (0, 9)-(0, -9)
For I = -9 To 9
PicGraph.PSet (0, I) 'Ðèñóåì ìàñøòàá íà îñè Ó
PicGraph.Print I; 'Ïîäïèñûâàåì; ìàñøòàá
Next I
End Sub