area del rectangulo

ponemos 2 label y escribimos: Calcular el área del rectangulo, base, altura y Resultado. 3 textbox. y 2 botones, en el primero ponemos calcular y en el otro salir, damos doble clic en el de calcular y escribimos:

  Dim base As Double

        Dim altura As Double

        base = TextBox1.Text

        altura = TextBox2.Text

        TextBox3.Text = base * altura