Господа программисты, вопрос по Visual Bacis

[Алехан]

Коротко о себе: студент первого курса, мешки под глазами, неделю не могу сдать лабу по информатике
Суть: подскажите где и как в VB строиться диаграмма? а если конкретнее то в этом коде -

ProgressBar1.Value = 0
For i = -1 To 1 Step 0.00001
x = i
Picture1.PSet (i, x * Exp(x) * Sin(x)), RGB(97, 119, 171)
ProgressBar1.Value = ProgressBar1.Value + 1
Next
StatusBar1.Panels(1).Text = "Ожидание"
End Sub

Private Sub Command2_Click()
OLE1.Visible = False
Label1.Visible = False
Label2.Visible = False
Picture1.Cls
StatusBar1.Panels(1).Text = "Круговая диаграмма"
ProgressBar1 = 200000
a = RGB(0, 148, 189)
b = RGB(164, 131, 196)
x = (3 + 2) * 3.14 / 28

Picture1.Scale (-20, 20)-(20, -20)
Picture1.DrawWidth = 2

Picture1.FillStyle = 3
Picture1.Circle (0.25, 2), 9, a, -3.14 / 2 + x, -3.14 / 2

Picture1.CurrentX = -15
Picture1.CurrentY = 0
Picture1.Print "Общее количетсво"
Picture1.CurrentX = -15
Picture1.CurrentY = -2
Picture1.Print "курсантов в группе"

Picture1.FillStyle = 2
Picture1.Circle (0, 0), 9, b, -3.14 / 2, -3.14 / 2 + x

Picture1.CurrentX = 7
Picture1.CurrentY = 18
Picture1.Print "Фамилии курсантов"
Picture1.CurrentX = 7
Picture1.CurrentY = 16
Picture1.Print "начинающиеся"
Picture1.CurrentX = 8
Picture1.CurrentY = 14
Picture1.Print "на букву Ч"
End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub Command4_Click()
End
End Sub

вырезал именно ту часть, где диаграмма, до этого график, думаю это не так важно
тыкните меня мордой где тут диаграмма и как она делается
Спасибо большое за помощь, выручайте.