push menu _msysmenu SET SYSMENU OFF ... pop menu _msysmenuTo hide system toollbars
DIMENSION laToolbars[11] laToolbars[1] = 'Form Designer' laToolbars[2] = 'Standard' laToolbars[3] = 'Layout' laToolbars[4] = 'Query Designer' laToolbars[5] = 'View Designer' laToolbars[6] = 'Color' laToolbars[7] = 'Form Designer' laToolbars[8] = 'Database Designer' laToolbars[9] = 'Report Designer' laToolbars[10] = 'Report Controls' laToolbars[11] = 'Print Preview' FOR lnCount = 1 TO ALEN(laToolbars, 1) IF WVISIBLE(laToolbars[lnCount]) HIDE WINDOW (laToolbars[lnCount]) ENDIF ENDFOR