loPar=CREATEOBJECT("Empty")
ADDPROPERTY(loPar,"lLoginResult",.F.)
ADDPROPERTY(loPar,"Second",5)

**********************************
* from parts
**********************************

* form::Init()
LPARAM loPar
This.AddProperty("oPar",loPar)

* form.cmdOK::Click()
IF .T.
  Thisform.oPar.lLoginResult=.T.
ENDIF

* form::Destroy()
CLEAR EVENTS
************************************

DO FORM frmLogin WITH loPar    && frmLogin is As top level form
READ EVENTS

IF loPar.lLoginResult
    DO FORM frmMain
ELSE
    MESSAGEBOX( "Login Failed." )
ENDIF

MartinaJ

>Martina,
>
>The first rule, as top level from (in vfp) cannot be modal.
>
>If don't understand why you need modal form show as top level form.
>
>Can you explain it better?
>
>I plan to do something like this:
>

>_VFP.Visible = .F.
>
>DO FORM frmLogin TO lLoginResult    && this needs frmLogin to be modal and top level form
>
>IF lLoginResult
>    DO FORM frmMain
>ELSE
>    MESSAGEBOX( "Login Failed." )
>ENDIF
>

>
>If not possible, I will just do it another way.
>
>Thanks again
>Dennis