FoxPro/Visual FoxPro - cambiar etiquetas

necesito esta ayuda, yo tenga distintas letras con distintas medidas en una sola etiqueta, q se agrandan o achican depende la situacion comenzando con la letra D
yo coloco la letre D en un text y cuando le doy enter quiero q me achiq la letra lo menor posible si acierta, seria con la letra G, y desde ahi ir subiendo si no acierta, y si acierta la letra q termine, pero lo q sucede es q cuando coloco bien la letra,en el primer caso me la achica pero no me deja seguir con el programa, aca les mando el codigo a ver si me ayudan
----------------------
el valor de la etiqueta q comienza con la D
A && FOUDSIZE 120
B && FOUDSIZE 100
C && FOUDSIZE 80
D && FOUDSIZE 60
G && FOUDSIZE 60
F && FOUDSIZE 40
G && FOUDSIZE 20
----------------------------------
en el keupress
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="D" && SI LO VIO SIGUE CON EL MAS CHICO
VALOR=70
THISFORM.label1.caption="F" && le cambio la letra
THISFORM.label1.fontsize=20 && la hago mas chica
THISFORM.TEXT1.VALUE=""
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="G"&& si vuelve a acertar q termine
TER=MESSAGEBOX("VE LO SUFICIENTE",4,"TERMINO EL CONtrol"
IF TER=6
VALOR=20
ENDIF && si v mas chico termina el programa

else
& q me permita ir agrandando la letra si no acierta
ENDIF
ENDIF
ELSE
ENDIF
ENDIF

depende la situacion comenzando con la letra D
yo coloco la letre D en un text y cuando le doy enter quiero q me achiq la letra lo menor posible si acierta, seria con la letra G

como es eso ??

el form comenzaria con un label de medida 70 de founsize, si la persona ve esa letra, tiene q ir a la medida del 20 y si no la ve, ir aumentando hasta q identifique la letra siempre colocandola en un text, la idea es saber cuanta agudeza visual tiene una persona, pero como tengo el codigo cuando le doy enter termina y no me da opciones de seguir, por favor quisiera saber como puedo ir solucionandolo
----------------------
el valor de la etiqueta q comienza con la D
A && FOUDSIZE 120
B && FOUDSIZE 100
C && FOUDSIZE 80
D && FOUDSIZE 60
G && FOUDSIZE 60
F && FOUDSIZE 40
G && FOUDSIZE 20
----------------------------------
en el keupress
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="D" && SI LO VIO SIGUE CON EL MAS CHICO
VALOR=70
THISFORM.label1.caption="F" && le cambio la letra
THISFORM.label1.fontsize=20 && la hago mas chica
THISFORM.TEXT1.VALUE=""
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="G"&& si vuelve a acertar q termine
TER=MESSAGEBOX("VE LO SUFICIENTE",4,"TERMINO EL CONtrol"
IF TER=6
VALOR=20
ENDIF && si v mas chico termina el programa

else
& q me permita ir agrandando la letra si no acierta
ENDIF
ENDIF
ELSE
ENDIF
ENDIF

revisa el control Spinner compañera ese te sera de mucha utilidad