FoxPro/Visual FoxPro - DUDA EN TEXBOX, HELP ME PLEASE !!!!

HOLA A TODOS Y GRACIAS POR SU ATENCION
TENGO ESTE PROBLEMA, PODRIAN AYUDARME ¿??

EN UN TEXBOX DEBO VALIDAR Q SOLO SE PUEDA TECLEAR LA LETRA F O LA LETRA S O NADA.

YA TENGO CONFIGURADO EL TEXBOX CON ESTAS PROPIEDADES

*** Thisform.Text1.Format=!
*** Thisform.Text1.MaxLength=1

Y EN EL EVENTO KEYPRESS TENGO ESTE CODIGO

LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeyCode<>13 .OR. nkeyCode<>102 .OR. nkeyCode<>115
MESSAGEBOX("Teclee F <Faltante> ó S <Sobrante> ",048,"ERROR !!!")
* NODEFAULT
Thisform.text1.Value=' '
Thisform.Refresh
ENDIF

PERO NADA, NO ME FUNCIONA PQ ME DA SIEMPRE EL MENSAJE DE ERROR AUNQ TECLEE LA LETRA CORRECTA F O S, Y ADEMAS NO ME LIMPIA EL TEXBOX, Y SIEMPRE ME DEJA LA ULTIMA LETRA Q TECLEE.

POR FAVOR ALGUIEN SERIA TAN AMABLE DE AYUDARME ¿?? YA INTENTE HACERLO EN EL EVENTO VALID TAMBIEN Y NADA, TAMPOCO ME SALE BIEN.

MIL GRACIAS

en el evento valid del text1 :

s=thisform.txtpac_socio.value="S" .or. thisform.txtpac_socio.value="F" .or. thisform.txtpac_socio.value=""
return s

MIL GRACIAS ALBERTO POR TU RAPIDA RESPUESTA

TAMBIEN LO PROBARE ASI

MUY AGRADECIDA

HOLA A TODOS NUEVAMENTE

YA ENCONTRE LA SOLUCION Y SE LAS PONGO PARA COMPARTIRLAN CON TODOS

*** EVENTO KEYPRESS DEL TEXBOX

LPARAMETERS nKeyCode, nShiftAltCtrl
*** SOLO SE PUEDEN TECLEAR ESTAS TECLAS ENTER,F,S,f,s,DEL,ESC,BACKSPACE
IF !(nkeyCode=13.OR.nkeyCode=102.OR.nkeyCode=115.OR.nkeyCode=70.OR.nkeyCode=83.OR.nkeyCode=7.OR.nkeyCode=27.OR.nkeyCode=127)
nKeyCode = 0
NODEFAULT
ENDIF