FoxPro/Visual FoxPro - COMO EN FOX PRO

BUENAS...

NECESITO SABER COMO PROGRAMAR UN BOTON PARA LIMPIAR N CAJAS DE TEXTO,
DE UNA FORMA "SENCILLA"

GRACIAS.

FOR iControl = 1 TO thisform.controlcount
DO CASE
CASE VARTYPE(thisform.Controls[iControl].value)="C"
thisform.Controls[iControl].value=""
CASE VARTYPE(thisform.Controls[iControl].value)="N"
thisform.Controls[iControl].value=0
CASE VARTYPE(thisform.Controls[iControl].value)="L"
thisform.Controls[iControl].value=.f.
CASE VARTYPE(thisform.Controls[iControl].value)="D"
thisform.Controls[iControl].value={}
endcase
ENDFOR

Hola

**si es caracter
thisform.textbox.value=""

**si es numerico
thisform.textbox.value = 0