Public Class Cvolumen

    Public radio, pi, volumen As Double 'declaracion de variables

    Function calcular() As Double 'iniciando la funcione calcular

        pi = 3.1416 'asignamos el valor constante a la variable pi

        volumen = (3 / 4) * pi * Math.Pow(3, radio) 'realizando la operacion para calcular el volumen

        Return volumen ' retornamos la respuesta

    End Function 'termina la funcion

End Class

Public Class ejercicio1_guia

    Dim acceso As New Cvolumen

    Private Sub calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcular.Click

        acceso.radio = Me.datos.Text 'asociamos la propiedad radio de la clase Cvolumen al textbox

        Me.Label2.Text = acceso.calcular 'mostramos el resultado en el label 2 llamando a la funcion

        'calcular de la clase Cvolumen

    End Sub

End Class