FoxPro/Visual FoxPro - Llamada a un formulario

He creado un formulario acceso.scx para permitir el acceso a mi aplicación. Pero al llamar a este formulario antes de instanciar al menú, el Foxpro sigue ejecutando las demás líneas. ? Como y donde debo colocar la llamada a este formulario ¿
El programa inicial de mi aplicación es el siguiente:

SET SAFETY OFF
SET SYSMENU OFF
SET DATE DMY
SET STATUS BAR OFF
CLOSE TABLES all
CLOSE DATABASES all
SET DEFAULT TO "C:\aplication"
*** ABRIR BASE DE DATOS Y LLAMAR A MENU ***
OPEN DATABASE .\Tablas\db_dbase.dbc
DO .\Menus\mnu_gestio.mpr
*** INICIAR EL PROCESAMIENTO DE EVENTOS ***
READ EVENTS
*** VALORES PARA LA FINALIZACION DEL PROGRAMA ***
CLOSE TABLES all
CLOSE DATABASES all
RELEASE MENUS mnu_gestio
*** AJUSTES FINALES ===
SET SAFETY ON
SET SYSMENU ON
SET TALK ON
SET STATUS BAR ON
*** FIN DEL PROGRAMA ===

Esto debe ser antes de ejecutar el menu:

SET SAFETY OFF
SET SYSMENU OFF
SET DATE DMY
SET STATUS BAR OFF
CLOSE TABLES all
CLOSE DATABASES all
SET DEFAULT TO "C:\aplication"
*** ABRIR BASE DE DATOS Y LLAMAR A MENU ***
OPEN DATABASE .\Tablas\db_dbase.dbc

Do form "Contraseña.scx"

*** INICIAR EL PROCESAMIENTO DE EVENTOS ***
READ EVENTS
CLEAR EVENTS

Note;
Yo haría primero la validacion del usuario y su contraseña, si es correcta ya en el "formulario de contraseña" ejecuto el menu.mpr; si es falsa que ingrese hasta 3 intentos y si no es correcta despues de los intentos que salga del sistema.

Suerte►

El Formulario que llamas debe de ser Modal.

Estimados he creado un formulario de ingreso para seguridad de mi aplicacion
pero al ingresar me aparece el cuadro de dialogo con la base de datos para seleccionar la tabla de usuarios del sistema, pueden darme una mano ?.. gracias por anticipado

el codigo
==============
SET EXACT ON
public sw
sw=.f.
v1=allt(thisform.text1.value)
v1=thisform.encriptar(v1,1)
v2=allt(thisform.text2.value)
v2=thisform.encriptar(v2,1)
IF EMPTY(V1) OR EMPTY(V2) THEN
=messagebox("Introduzca usuario y clave")
RETURN
endif
IF (con<3 and sw=.f.) THEN
locate for login=v1
IF FOUND() THEN
LOCATE FOR password1=v2
if found() then
VUSUARIO=THISFORM.TEXT1.VALUE
VNIVEL=NIVEL
ELSE
_SCREEN.CAPTION="SISTEMA - COPIA LIMITADA [[ALMACEN # "+ALLT(STR(VALMACEN))+" ]]"
ENDIF
do form presentacion
sw=.t.
RELEASE THISFORM
ELSE
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT2.SETFOCUS
=MESSAGEBOX("Clave incorrecta")
con=con+1
endif
else
=MESSAGEBOX("Usuario incorrecto")
con=con+1
endif

IF CON=3 THEN
CON=0
THISFORM.RELEASE
set sysmenu to defa
clear events
ENDIF

hola disculpa la pregunta veo que tuviste problemas con un formulario de acceso, yo tambien tengo el mismo problema y quisiera saber si lo podiste solucionar?