FoxPro/Visual FoxPro - Como ingresar clave

Hola ! quisiera saver como se hace para que el ususario ingrese una clave y esta se vea en pantalla como asteriscos.

Checa la propiedad PASSWORDCHAR del textbox

** si lo usas al menos escribime para contarme si te sirvio! (yo lo uso)
* el pasword termina cargado en NCLAVE

private nag, pass
pass=""
nclave=""
do while .T.
clear type
@ 13,45 say padr(replicate("*",len(pass)),10) color w+/n
nag=inkey(0,'H')
if nag=13
*pass=""
*nclave=""
* loop
exit
endif
if between(nag,48,123).and.len(pass)<11 &&57
pass=pass+chr(nag)
endif

if nag=127
pass=left(pass,len(pass)-1)
endif
if nag=27
return
endif
enddo
*susp

NCLAVE=pass
nclave=alltrim(nclave)

Pero la solución que recomendó ROman es muuuuucho mas practica

SI PODES PONEME ACA UN EJEMPLO PARA ENTENDERLO PERFECTAMENTE.

RE-GRACIAS

Ye está explicado, es fácil.

En la propiedad passwordchar del textbox le pones por ejemplo *,
y mientras escribes en ese textbox solo mostrará ********

SET COLOR TO B/B,B/B esto no muestra nada de lo que escribe