ИнтеллигенцияX

Даже не помню для чего делал..

Класс Graphics

1. Код рисования линии:

Dim gpap As Graphics 'Объявляем класс Graphics
grap = Me.CreateGraphics 'Будем рисовать по форме
grap.DrawLine(Pens.Black, 80, 20, 200, 100) 'Рисуем линию. Pens.Black цвет. 80(x1),20(y1),200(x2),100(y2) координаты.

2. Код для рисования двух эллипсов и прямоугольника:

Dim Grap As Graphics = Me.CreateGraphics
Grap.DrawRectangle(Pens.Green, 70, 50, 100, 100) 'Квадрат(Pens.Green - цвет зеленый) , (70, 50, 100, 100 - координаты)
Grap.DrawEllipse(Pens.Green, 400, 150, 100, 100) 'Круг(Pens.Green - цвет зеленый(Pens.Black - цвет черный, задаете вы) , (400, 150, 100, 100 - координаты)
Grap.DrawEllipse(Pens.Green, 0, 150, 100, 200) 'Высокий эллипс(Pens.Green - цвет зеленый)