Public Class Form23

​

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

​

        Dim Pi, Radius, Volume As Double
        Pi = 3.1459
        Radius = TextBox1.Text
        Volume = ((4 / 3) * (Pi) * (Radius ^ 3))
        Label1.Text = Volume

    End Sub

​

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

        Form17.Show()
        Me.Hide()

    End Sub

​

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

​

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

​

    End Sub

End Class

​

​

​