DIMENSION aToolbars[11] aToolbars[1] = 'Form Designer' aToolbars[2] = 'Standard' aToolbars[3] = 'Layout' aToolbars[4] = 'Query Designer' aToolbars[5] = 'View Designer' aToolbars[6] = 'Color Designer' aToolbars[7] = 'Form Designer' aToolbars[8] = 'Database Designer' aToolbars[9] = 'Report Designer' aToolbars[10] = 'Report Controls' aToolbars[11] = 'Print Preview' FOR lnCount = 1 TO ALEN(aToolbars, 1) IF WVISIBLE(aToolbars[lnCount]) HIDE WINDOW (aToolbars[lnCount]) ENDIF ENDFOR