Visual Estudio

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
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False

        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False
        TextBox4.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 = True
        Label4.Visible = True
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True
        Button5.Visible = True
        Button6.Visible = False
        Button7.Visible = False
        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = True
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = True
        TextBox4.Visible = False
        Label2.Text = "AREA DE BASE"
        Label3.Text = "ALTURA"
    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 = False
        Label4.Visible = True
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = True
        Button7.Visible = False

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = True
        PictureBox3.Visible = False

        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = False
        TextBox4.Visible = False

        Label2.Text = "R3"
        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
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = True

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = True

        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = True
        Label2.Text = "RADIO"
        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 = False
        Label4.Visible = True
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False

        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = False
        Label2.Text = "LADO3"
        Label4.Text = "VOLUMEN"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text) / 3

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = 4 / 3 * 3.1416 * Val(TextBox2.Text)


    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = 3.1416 * Val(TextBox2.Text) ^ 2 * Val(TextBox3.Text) / 3




    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = Val(TextBox2.Text) ^ 3
        Label4.Text = "VOLUMEN"

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Label1.Visible = True
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False

        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False


    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        End
    End Sub