Ряд прямоугольников

Задается массивом прямоугольников. Метод DrawRectangles (не путать с DrawRectangle!) просто рисует все прямоугольники из массива. Вот код:

Dim Гр As Graphics = Me.CreateGraphics

Dim Массив_прямоугольников() As Rectangle = {New Rectangle(10, 50, 30, 40), _

New Rectangle(100, 10, 60, 20), _

New Rectangle(20, 20, 120, 50)}

Гр.DrawRectangles(Pens.Black, Массив_прямоугольников)

Вот результат (Рис. 17.2).

Рис. 17.2

Метод FillRectangles рисует те же прямоугольники закрашенными:

Гр.FillRectangles (Brushes.OrangeRed, Массив_прямоугольников)