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