FoxPro/Visual FoxPro - ayuda con el formulario del password

he hecho un formulario en donde se tiene que escojer con un combo la cuenta, y una caja de texto para la contraseña, la pregunta es que como le hago para cerrar el formulario de passwords y abrir el otro form si la contraseña es correcta. si tiene alguna sugerencia pa cambiar el codigo o si lo estoy haciendo mal, me seria muy util que me lo dijera!

este es el codigo que lleva el boton aceptar en el evento click:

public cod as integer
local a

with thisform
a= .combo1.value
contra = .text1.value
cod = val(.combo1value)
select contraseña as cont into cursor conrs from passwords where cod = codigo
if isblank(a) then
= messagebox("Debe seleccionar una cuenta.",48,"ERROR DE ACCESO")
else
if contra = con then
messagebox ("Bienvenido al Sistema de procesos de matricula",64,"BIENVENIDO AL SISTEMA")
do form "C:\matriculas\forms\menuprincipal.scx"
*ACA ES DONDE NO SE COMO CERRAR EL FORMULARIO DE PASSWORDS
JEJE NO ME ACUERDO!
else
messagebox ("la contraseña es incorrecta, vuelva a intentarlo",48,"ERROR DE ACCESO")
endif
endif
endwith

SI TIENE ALGUNA SUGERENCIA PARA MEJORAR EL CODIGO ME SERIA MUY UTIL!
GRACIAS DE ANTE MANO

Lo preferible es que tengas un programa principal, de ese programa llamas la pantalla de acceso y de ahi devuelve un valor (si tiene acceso o no). El programa que llamó la pantalla de acceso entonces decide si correra la aplicacion o sale.