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
>