Построение гистограммы в задаче - VB

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

Привет всем. Есть задача, очень нужно ее сделать. Основную проблемы вызывает построение гистограммы. Серфинг по гуглу никаких результатов не дал, а у самого меня познаний в этом нет. Если кто-то может подсказать, как ее сделать или дать ссылку на источник, где можно об этом узнать, буду очень признателен. Заранее спасибо.

Решение задачи: «Построение гистограммы в задаче»

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

                            Select Case S
Case "Gist"
Picture1.Scale (0, mass(0) + 10)-(111, 0)
For i = 0 To d
Picture1.Line (10 * i + 1, 0)-(10 * i + 10, mass(i)), RGB((mass(i) - mass(d)) * 20, mass(0) - mass(i), (mass(i) - mass(d)) * 5), BF
Picture1.CurrentX = Picture1.CurrentX - 5
Picture1.CurrentY = Picture1.CurrentY + 5
 
Picture1.Print mass(i)
Picture1.CurrentY = 8: Picture1.CurrentX = 10 * i + 4
'Picture1.Print i
Next i
End Select
                        