Public Class Form22

​

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Form17.Show()
        Me.Hide()

    End Sub

​

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

​

        Dim Side, Area, SurfArea As Single

        Side = TextBox1.Text
        Area = (Side ^ 2)
        SurfArea = (6 * Area)

        Label1.Text = SurfArea

    End Sub

​

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

​

        TextBox1.Text = ""
        Label1.Text = ""

​

    End Sub

End Class

​

​