area del cuadrado

 ponemos 3 label y escribimos: calcular el área del cuadrado, lado y resultado. después ponemos 2 TextBox y ponemos dos botones uno que diga calcular y el otro salir, damos doble clic en el de calcular y escribimos:

 Dim lado As Double

        lado = TextBox1.Text

        TextBox2.Text = (lado * lado)