FoxPro/Visual FoxPro - Ayuda de como hacer una plicacion de login y clave

Hola amigos.

Estoy iniciando en la programacion de Visual FoxPro... alguien me puede ayudar a como hacer una pequeña ventana donde puedo dar de alta a un usuario e introducir una contraseña para aceptarlo?.

Les agradezco desde ya toda la ayuda prestada.

Tom

*Capturamos los datos de los textos a variables
IDusuario=ALLTRIM(thisform.txtUsuario.Text)
Contrasena=ALLTRIM(thisform.txtContrasena.text)

*Buscamos en nuestra tabla de usuarios, el usuario del Textbox
LOCATE FOR ALLTRIM(usuarios.codigousuario)==IDusuario

*If found() regresara T si lo encuentra
IF FOUND()
IF (ALLTRIM(usuarios.password)==Contrasena) then
MESSAGEBOX("Bienvenido "+ alltrim(usuarios.nombre),064,"Login")
ELSE
MESSAGEBOX("Contraseña Incorecta.",016,"Login")
ENDIF
ELSE
MESSAGEBOX("Usuario incorrecto.",016,"Login")
ENDIF

*Espero que te sirva esto