Сдвинуть нарисованные объекты - VB

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

Я нарисовал в VB рисунок в через Приват Саб (Line, Circle). Мне нужно этот рисунок запихать в цикл таким образом, что бы он появился рядом такой же сдвинутый по оси Х. После, нужно что бы вот эти 2 рисунка появились сдвинутые по оси У вниз, тоже с помощью цикла. То есть должен быть цикл в цикле. и в итоги из одного должно получится 4 рисунка. Заранее благодарю.

Решение задачи: «Сдвинуть нарисованные объекты»

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

                            Line (1 + i, 1 + x)-(3 + i, 1 + x), vbBlack
Line (1 + i, 1 + x)-(1 + i, 3 + x), vbBlack
Line (1 + i, 3 + x)-(3 + i, 3 + x), vbBlack
Line (3 + i, 3 + x)-(3 + i, 5 + x), vbBlack
Line (3 + i, 5 + x)-(1 + i, 5 + x), vbBlack
                        