>FOR lnForm = 1 TO _screen.FormCount
>    IF VARTYPE(_screen.Forms(lnForm)) == "O" .AND. .NOT. ISNULL(_screen.Forms(lnForm))
>       IF _screen.Forms(lnForm).Baseclass   == "Form"     .AND.;
>          UPPER(_screen.Forms(lnForm).Name) == "CUSTOMER"
           if ( _screen.Forms(lnForm).QueryUnload() )
>             _screen.Forms(lnForm).Release()
           endif
>          EXIT
>       ENDIF
>    ENDIF
>NEXT
>