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

Private Sub Command1_Click()Form1.Shape1.Visible = TrueForm1.Shape2.Visible = TrueForm1.Shape3.Visible = TrueForm1.Shape4.Visible = TrueForm1.Shape5.Visible = FalceForm1.Shape6.Visible = FalceForm1.Shape7.Visible = FalceForm1.Shape8.Visible = FalceEnd SubPrivate Sub Command2_Click()Form1.Shape5.Visible = TrueForm1.Shape6.Visible = TrueForm1.Shape7.Visible = TrueForm1.Shape8.Visible = TrueForm1.Shape1.Visible = FalceForm1.Shape2.Visible = FalceForm1.Shape3.Visible = FalceForm1.Shape4.Visible = FalceEnd Sub