PARAMETERS p_lKeepToolbars LOCAL l_n DIMENSION This.r_aSystemToolbars[12,2] This.r_aSystemToolbars[ 1,1] = "Print Preview" This.r_aSystemToolbars[ 2,1] = "Report Designer" This.r_aSystemToolbars[ 3,1] = "Form Controls" This.r_aSystemToolbars[ 4,1] = "Standard" This.r_aSystemToolbars[ 5,1] = "Form Designer" This.r_aSystemToolbars[ 6,1] = "Layout" This.r_aSystemToolbars[ 7,1] = "Database Designer" This.r_aSystemToolbars[ 8,1] = "View Designer" This.r_aSystemToolbars[ 9,1] = "Report Controls" This.r_aSystemToolbars[10,1] = "Color Palette" This.r_aSystemToolbars[11,1] = "Query Designer" This.r_aSystemToolbars[12,1] = "Debugger" FOR l_n = 1 To 12 IF WVISIBLE(This.r_aSystemToolbars[l_n, 1]) This.r_aSystemToolbars[l_n, 2] = .T. IF NOT p_lKeepToolbars HIDE WINDOW (This.r_aSystemToolbars[l_n, 1]) ENDIF ENDIF ENDFOR