Programa de calcular el area de un rectangulo (Visual Foxpro 6.0)

-Diseñamos primero el formulario de la siguiente manera:


En el boton de calcular ingresamos el siguiente codigo:
 

alto=thisform.txtalto.value

ancho=thisform.txtancho.value

 area=(0.25*ancho*alto)

 thisform.txtarea.value=area

-Luego ejecutamos el programa y se nos mostrara de la siguiente forma: