Как раскрасить колонки диаграммы в разные цвета? - VB

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

есть такой код помогите сделать так что бы колонки диаграммы были раскрашены в разные цвета за ранее спасибо

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command3_Click()
Dim m(10)
'далее заполнить массив значениями
'
m(0) = 63
m(1) = 63
m(2) = 29
m(3) = 30
m(4) = 40
m(5) = 20
m(6) = 50
m(7) = 90
m(8) = 90
m(9) = 70
 
'потом сама диаграмма
Picture2.Scale (-2, 110)-(12, 10)
Picture2.Line (0, 0)-(0, 100)
Picture2.Line (0, 0)-(10, 0)
For i = 0 To 9
Picture2.Line (i, m(i))-(i + 1, 0), , B
Next i
End Sub

Решение задачи: «Как раскрасить колонки диаграммы в разные цвета?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command3_Click()
    Dim m, i As Integer
    'далее заполнить массив значениями
    m = Array(63, 63, 29, 30, 40, 20, 50, 90, 90, 70)
    'масштаб
    Picture2.Scale (-2, 110)-(12, 10)
    'потом сама диаграмма
    For i = 0 To UBound(m)
        Picture2.Line (i, m(i))-(i + 1, 0), QBColor(i), BF
    Next
    'оси
    'Picture2.Line (0, 0)-(0, 100)
    'Picture2.Line (0, 0)-(10, 0)
End Sub