Public Class Form24

​

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

        Dim Pi, Radius, SurfArea As Single

        Pi = 3.14159                                     '## Value of Pi ----------------##
        Radius = TextBox1.Text                     '## Radius Value = TextBox1 ----##
        SurfArea = ((4) * (Pi) * (Radius ^ 2))    '## Compute Surface Area ------##
        Label1.Text = SurfArea                      '## Label1 = Surface Area -------##

​

    End Sub

​

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

        Form17.Show()
        Me.Hide()

    End Sub

​

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

​

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

​

    End Sub

End Class

​

​

​