Public Class frmcan

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblradius.Click

    End Sub

    Private Sub btncalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalc.Click
        Dim height As Double
        Dim radius As Double
        Dim number As Double
        Dim total As Double


        height = txtHeight.Text
        radius = txtradius.Text
        number = (radius ^ 2) + (radius * height)
        total = number * 6.283

        txtoutput.Text = "It requires " & total & " square centimeters to make the can"

    End Sub
End Class