Area de un circulo

Para sacar el area de un circulo hay que insertar Labels, Text box, los codigos para que esto funcione son: Private Sub Button1_Click(ByVal sender As
Dim Base as Double
Dim Altura As Double
Base= TextBox1.Text
Altura= TextBox2.Text
TextBox3.text=(Base*Altura) / 2
End sub