Создать программный проект, на котором задана горизонтальная полоса из четырёх квадратов, при нажатии кнопки будет появляться вертикальная полоса. (Написать на Visual Basic)

Private Sub Command1_Click() Form1.Shape1.Visible = True Form1.Shape2.Visible = True Form1.Shape3.Visible = True Form1.Shape4.Visible = True Form1.Shape5.Visible = Falce Form1.Shape6.Visible = Falce Form1.Shape7.Visible = Falce Form1.Shape8.Visible = Falce End Sub Private Sub Command2_Click() Form1.Shape5.Visible = True Form1.Shape6.Visible = True Form1.Shape7.Visible = True Form1.Shape8.Visible = True Form1.Shape1.Visible = Falce Form1.Shape2.Visible = Falce Form1.Shape3.Visible = Falce Form1.Shape4.Visible = Falce End Sub