Программный проект - цветная пирамида - VB

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

Создать программный проект, на котором задана цветная пирамида из двух рядов, а при нажатии кнопки меняется её положение. Выручите пожалуйста!!!!

Решение задачи: «Программный проект - цветная пирамида»

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

                            Option Explicit
Dim i  As Double
Dim j As Double
Dim ran, gan As Double
Private Sub Command1_Click()
Cls
Form1.ScaleMode = 1
 AutoRedraw = True: DrawWidth = 3
ran = Int(Rnd * 60 + 1)
gan = Int(Rnd * 70 + 1)
 
i = 100 + 100 * ran
j = 500 + 100 * gan
 
 
Line (i + 200, j - 400)-(i + 400, j - 200), vbGreen, BF
Line (i + 600, j - 400)-(i + 800, j - 200), vbGreen, BF
 
Line (i, j)-(i + 200, j + 200), vbGreen, BF
Line (i + 400, j)-(i + 600, j + 200), vbGreen, BF
Line (i + 800, j)-(i + 1000, j + 200), vbGreen, BF
End Sub
                        