Thanx Mike - works

>Hi Edgar,
>
>Put this into a .prg and DO it.
>

PUBLIC SelectionMade
>oRef = CREATEOBJECT("Tform",.F.)
>oRef.show
>
>IF NOT EMPTY(SelectionMade)
>   DO FORM edimain && Be sure to issue CLEAR EVENTS in this form's Destroy
>   READ EVENTS
>ENDIF
>
>SET SYSMENU TO DEFAULT
>WAIT WINDOW "Goodbye!" TIMEOUT 1
>
>* Tform *
>DEFINE CLASS Tform As Form
>    Width= 375
>    Height=290
>    Caption=" Security! Version 4.080"
>    Autocenter=  .T.
>    AlwaysOnTop= .T.
>    BorderStyle= 0
>    Closable=    .T. && I changed this so I could close the form
>    DeskTop =    .F.
>    WindowType= 1    && Modal
>    FontName= "Courier New"
>    ForeColor= RGB(190,245,210)
>    BackColor= RGB(0,190,225)
>    Left= 0
>    Top= 0
>    MinButton= .F.
>    MaxButton= .F.
>    MousePointer= 14
>    Name= "frmSec"
>    ShowWindow= 0 && In Screen
>
>    PROCEDURE Init
>    	LPARAMETERS liTemp
>    ENDPROC
>
>    PROCEDURE Destroy
>    	SelectionMade = "" && Change this to run the form
>    ENDPROC
>
>ENDDEFINE

>
>>What additional setting is needed in scroll?
>>
>>I'm Trying to sustitute a class in place of a boring security login form.
>>
>>The Intent is to allow a security option to be set but the main program continues directly past the MODAL scroll...
>>
>>
>>Main Program calls
>>

>>DO Scroll WITH SelectionMade,cDriveE
>>...
>>IF NOT EMPTY(SelectionMade)
>>   DO FORM edimain
>>   READ EVENTS
>>ENDIF
>>SET SYSMENU TO DEFAULT
>>...
>>WAIT WINDOW "Goodbye!" TIMEOUT 1
>>

>>
>>Scroll class...
>>

>>* Tform *
>>DEFINE CLASS Tform As Form
>>    Width= 375
>>    Height=290
>>    Caption=" Security! Version 4.080"
>>    Autocenter=  .T.
>>    AlwaysOnTop= .T.
>>    BorderStyle= 0
>>    Closable=    .F.
>>    DeskTop =    .F.
>>    WindowType= 1    && Modal
>>    FontName= "Courier New"
>>    ForeColor= RGB(190,245,210)
>>    BackColor= RGB(0,190,225)
>>    Left= 0
>>    Top= 0
>>    MinButton= .F.
>>    MaxButton= .F.
>>    MousePointer= 14
>>    Name= "frmSec"
>>    ShowWindow= 0 && In Screen
>>