FoxPro/Visual FoxPro - ayuda chicos porfi

Tengo un form con una etiqueta y un text, y a medida q la persona no puede ver la letre q figura en le etiqueta esta se va agrandando hasta q la pueda ver y termina, siempre se va ingresando una letra en el text, se da enter y asi se va agrandando hasta q la ve, cuando la ve termina.
Ahora el problema es q cuando no adivina la letra me va al ultimo diractamente y yo quiero q pase por las distintas posibilidades, les mando el codigo para ver si se dan cuenta donde estoy fallando, recuerden cada ves q se equivoca q vaya aumando la etiqueta de a poco. gracias!!!!!!!!!!!!!!!!
S=THISFORM.TEXT1.VALUE
IF lastkey()=13 and c=0
IF S="T" && SI LO VIO SIGUE CON EL MAS CHICO
VALOR=70
thisform.release

ELSE
c=c+1 &&aca vale 1
THISFORM.label1.caption="J" && le cambio la letra
THISFORM.label1.fontsize=80 && agrando la medida
ENDIF
endif

IF lastkey()=13 and c=1
if S="J"
thisform.release &&termina
else
c=c+1 && aca vale 2
THISFORM.label1.caption="Q" && le cambio la letra
THISFORM.label1.fontsize=90 && agrando la medida

endif
ENDIF
IF lastkey()=13 and c=2
if S="Q"
&&termina
else
c=c+1 && aca vale 3
THISFORM.label1.caption="Z" && le cambio la letra
THISFORM.label1.fontsize=100 && agrando la medida
endif
endif

IF lastkey()=13 and c=3
if S="Z"
&&termina
else
c=c+1 && aca vale 4
THISFORM.label1.caption="E" && le cambio la letra
THISFORM.label1.fontsize=110 && agrando la medida y termina

endif
endif

Yo uso una basada en este codigo
http://support.microsoft.com/kb/166378/en-us

no me ayudo mucho el articulo plinio, vos q opinas, como puedo solucionarlo sin tener q tocar mucho el codigo

revisa WFONT a ver si eso si te ayuda

http://msdn2.microsoft.com/en-us/library/bx88s7fs(VS.80).aspx