PictureBox - помогите разобраться

[MIT]

Вот передо мной встала проблема: в PictureBox'е надо наарисовать несколько вертикальный полос, имеющих заданную толщину. Как это сделать?

[Amed]

Код: Выделить всё

Private Sub Form_Load()
With Picture1
    .AutoRedraw = True
    .DrawWidth = 2
    Picture1.Line (100, 0)-(100, 1000)
    .DrawWidth = 3
    Picture1.Line (200, 0)-(200, 1000)
    .DrawWidth = 4
    Picture1.Line (300, 0)-(300, 1000)
    .DrawWidth = 5
    Picture1.Line (400, 0)-(400, 1000)
End With
End Sub