FOR lnForm = 1 TO _screen.FormCount
    IF TYPE("_screen.Forms(lnFormToClose)") == "O" .AND.;
       .NOT. ISNULL(_screen.Forms(lnFormToClose))
       IF .NOT. UPPER(_screen.Forms(lnFormToClose).Name) == "STARTUP"
          IF _screen.Forms(lnFormToClose).Baseclass == "Form"
             _screen.Forms(lnFormToClose).Release()
          ELSE
             lnFormToClose = lnFormToClose + 1
          ENDIF
       ELSE
          lnFormToClose = lnFormToClose + 1
       ENDIF
    ENDIF 
NEXT