microsoft visual basic

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Visible = True Label2.Visible = False Label3.Visible = False Label4.Visible = False Button1.Visible = True Button2.Visible = True Button3.Visible = True Button4.Visible = True Button5.Visible = False Button6.Visible = False Button7.Visible = False Button8.Visible = False Button9.Visible = True Button10.Visible = True PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False TextBox1.Visible = False TextBox2.Visible = False TextBox3.Visible = False End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Visible = True Label2.Visible = True Label3.Visible = False Label4.Visible = True Button1.Visible = True Button2.Visible = True Button3.Visible = True Button4.Visible = True Button5.Visible = True Button6.Visible = False Button7.Visible = False Button8.Visible = False Button9.Visible = True Button10.Visible = True PictureBox1.Visible = True PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = False Label2.Text = "lado" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Visible = True Label2.Visible = True Label3.Visible = True Label4.Visible = True Button1.Visible = True Button2.Visible = True Button3.Visible = True Button4.Visible = True Button5.Visible = False Button6.Visible = True Button7.Visible = False Button8.Visible = False Button9.Visible = True Button10.Visible = True PictureBox1.Visible = False PictureBox2.Visible = True PictureBox3.Visible = False PictureBox4.Visible = False TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = True Label2.Text = "largo" Label3.Text = "ancho" Label4.Text = "Cm2" End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Label1.Visible = True Label2.Visible = True Label3.Visible = True Label4.Visible = True Button1.Visible = True Button2.Visible = True Button3.Visible = True Button4.Visible = True Button5.Visible = False Button6.Visible = False Button7.Visible = True Button8.Visible = False Button9.Visible = True Button10.Visible = True PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = True PictureBox4.Visible = False TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = True Label2.Text = "base" Label3.Text = "altura" Label4.Text = "Cm2" End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Label1.Visible = True Label2.Visible = True Label3.Visible = True Label4.Visible = True Button1.Visible = True Button2.Visible = True Button3.Visible = True Button4.Visible = True Button5.Visible = False Button6.Visible = False Button7.Visible = False Button8.Visible = True Button9.Visible = True Button10.Visible = True PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = True TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = False Label2.Text = "radio" Label4.Text = "Cm2" End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click TextBox1.Text = Val(TextBox2.Text) ^ 2 End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text) End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text) / 2 End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click TextBox1.Text = 3.1416 * Val(TextBox2.Text) ^ 2 End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Label2.Text = "" Label3.Text = "" Label4.Text = "" PictureBox1.Text = "" PictureBox2.Text = "" PictureBox3.Text = "" PictureBox4.Text = "" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click End